VB裏面語句，怎麽實現對SQL數據庫裏面數據的增刪改查

從“工程”菜單中“引用” 引用Microsoft ActiveX data objects 2.8

private sub command_click()

Dim mycon As ADODB.Connection '定義連接數據庫對象

'如果妳的數據庫是access用下面的方式打開數據庫

'*****************************************

mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source=" & App.Path & "/ 這裏寫數據庫名.mdb"

''*****************************************

'如果妳的數據庫是SQL的用下面的方式打開數據庫

'mycon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=數據庫名;Data Source=.\sqlexpress"

'***************************

mycon.Open '打開數據庫

Dim rst As New ADODB.Recordset '定義壹個記錄集 ，用來打開表記錄

sql="select * from information"

rst.Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打開記錄集

rst.addnew '添加空記錄

rst.fields(0)=text1,text

rst.fields(1)=text2,text

rst.fields(2)=text3,text

rst.fields(3)=text4,text

rst.fields(4)=text5,text

rst.update '更新數據庫

msgbox"數據錄入成功"

這樣就可以了！ 不過我發現妳的界面好像是VB.NET的，如果是VB.NET的妳把郵箱發過來我直接過妳發過去好了！

上一篇:好看的小說有些什麽？

下一篇:亞馬遜賣家如何降低FBA費用成本？