rediger adgang teble fra VB6 i løbe tid?

[kas1]

hej
Jeg har brug for at redigere MS adgang til data fra VB6.Lad os sige, jeg har en tabel i Access navn 'table1 «. Og det har nogle data.Jeg har brug for at indtaste flere data på bordet fra VB.Der er en tekstboks i vb at tilføje såkaldte data name.txt.im hjælp ADODC kan enhver, behage hjælp mig.hvis u kunne behage sende mig en prøve kode.

 

[GSM-Man]

Brug 'Addnew' metode postsættet.Du kan få nærmere oplysninger og kodeeksempler fra Microsofts websted.

 

[Aya2002]

også mig

 

[GSM-Man]

Fra msdn.Microsoft.com - der er masser af eksempler der!Citat:'BeginAddNewVB"At integrere denne kode

»udskifte datakilden og indledende katalog værdier

'i forbindelse strengenPublic Sub Main ()

On Error GoTo ErrorHandler»postsættet og tilslutning variabler

Dim Cnxn Som ADODB.Connection

Dim rstEmployees Som ADODB.Recordset

Dim strCnxn As String

Dim strSQL As String

'record variabler

Dim strID As String

Dim strFirstName As String

Dim strLastName As String

Dim blnRecordAdded Som Boolean'Åben en forbindelse

Set Cnxn = New ADODB.Connection

strCnxn = "Provider = 'sqloledb'; Data Source = 'MySqlServer';" & _

"Initial Catalog = 'Northwind'; Integrated Security = 'SSPI';"

Cnxn.Open strCnxn'Åbn tabellen Medarbejdere med en markør, der tillader opdateringer

Set rstEmployees = New ADODB.Recordset

strSQL = "Ansatte"

rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic, adCmdTable»Hent data fra brugeren

strFirstName = Trim (InputBox ( "Indtast første navn:"))

strLastName = Trim (InputBox ( "Indtast efternavn:"))»Gå kun, hvis brugeren faktisk er opført noget

«For både første og sidste navne

Hvis strFirstName <> "" Og strLastName <> "" ThenrstEmployees.AddNew

rstEmployees! firstname = strFirstName

rstEmployees! LastName = strLastName

rstEmployees.Update

blnRecordAdded = True'Vis den nyligt tilføjede data

MsgBox "Ny rekord:" & rstEmployees! EmployeeID & "" & _

rstEmployees! firstname & "" & rstEmployees! LastNameAnden

MsgBox "Indtast et fornavn og efternavn."

End If'Slet den nye plade, fordi det er en demonstration

Cnxn.Execute "DELETE FROM Employees WHERE EmployeeID = '" & strID & "'"'Rense

rstEmployees.Close

Cnxn.Close

Set rstEmployees = Nothing

Set Cnxn = Nothing

Exit SubErrorHandler:

'Rense

Hvis ikke rstEmployees Er Intet Derefter

Hvis rstEmployees.State = adStateOpen Så rstEmployees.Close

End If

Set rstEmployees = NothingHvis ikke Cnxn Er Intet Derefter

Hvis Cnxn.State = adStateOpen Så Cnxn.Close

End If

Set Cnxn = NothingHvis Err <> 0 Then

MsgBox Err.Source & "-->" & Err.Description,, "Fejl"

End If

End Sub

'EndAddNewVB

 

[Aya2002]

tak GSM Man