редактиране на достъп teble от VB6 тече в момента?

[kas1]

здрасти
Имам нужда да редактирате МС достъп до данни от VB6.Да кажем, аз имам една таблица по отношение на достъпа името "Table1. И тя има някои данни.Трябва да въведете повече данни към таблицата от ВБ.там е текстовото поле в хб да добавите данни name.txt.im наречен използване ADODC може някой моля да ми помогне.U моля, ако може да ми изпратите код проба.

 

[GSM]

Използване на "метода на Addnew" на записи.Можете да получите информация и примерен код, от сайта на Microsoft.

 

[Aya2002]

аз също

 

[GSM]

От msdn.Microsoft.com - има много примери за там!Цитат:"BeginAddNewVB"За да включи този код

"Замяна на източник на данни и началните стойности каталог

"Във връзка низОбществени Sub Main ()

On Error GoTo ErrorHandler"записи и връзка променливи

Дим Cnxn Както ADODB.Connection

Дим rstEmployees Както ADODB.Recordset

Дим strCnxn As String

Дим strSQL As String

"тахографски променливи

Дим strID As String

Дим strFirstName As String

Дим strLastName As String

Дим blnRecordAdded Както Булева"Отваряне на връзката

Комплект Cnxn = Нова ADODB.Connection

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

"Първоначално Каталог = 'Northwind'; Integrated Security = 'SSPI"; "

Cnxn.Open strCnxn"Отвори Служители таблица с курсора, която позволява на актуализации

Комплект rstEmployees = Нова ADODB.Recordset

strSQL = "Работници"

rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic, adCmdTable"Получаване на данни от потребителя

strFirstName = Trim (InputBox ( "Въведете име:"))

strLastName = Trim (InputBox ( "Въведете фамилия:"))"Продължете само ако потребителят действително влезе нещо

"Както за първо и фамилно име

Ако strFirstName <> "" И strLastName <> "" След товаrstEmployees.AddNew

rstEmployees! Име = strFirstName

rstEmployees! Фамилно = strLastName

rstEmployees.Update

blnRecordAdded = True'Показване на новата добавя данни

MsgBox "Нов запис:" & rstEmployees! EmployeeId & "" & _

rstEmployees! Име & "" & rstEmployees! ФамилноВ противен случай

MsgBox "Моля въведете име и фамилия."

End If"Изтриване на нов запис, защото това е демонстрация

Cnxn.Execute "Изтриване от страна на служителите КЪДЕ EmployeeID = '" & strID & "'""Изчисти

rstEmployees.Close

Cnxn.Close

Комплект rstEmployees = Нищо

Комплект Cnxn = Нищо

Изход SubErrorHandler:

"Изчисти

Ако не rstEmployees Is Nothing Тогава

Ако rstEmployees.State = adStateOpen Тогава rstEmployees.Close

End If

Комплект rstEmployees = НищоАко не Cnxn Is Nothing Тогава

Ако Cnxn.State = adStateOpen Тогава Cnxn.Close

End If

Комплект Cnxn = НищоАко Err <> 0 Then

MsgBox Err.Source & "-->" & Err.Description,, "Грешка"

End If

Край Sub

"EndAddNewVB

 

[Aya2002]

благодаря ти GSM Ман