vb.net mysql 插入数据_VB.net 在MSSQL数据库 插入一条记录 语句？

DimconnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetconn.ConnectionString="DRIVER={SQLServer};server=192.168.1.11;database=ebicsfxt;uid=sa;pwd=123"conn.Open()'insertinto...

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString = "DRIVER={SQL Server};server=192.168.1.11;database=ebicsfxt;uid=sa;pwd=123"conn.Open()

' insert into zhiwu (code,name) values(5,'B') 此语句在查询分析器执行正常

' 插下一行新记录，方式A

rs.Open("select top 1 * from zhiwu ", conn, 1, 3) ‘ 运行正常

rs.AddNew()

rs.Fields(1).Value = 5 '试过rs.Fields(1) = 5，在编辑器就提示出错了

rs.Fields(2).Value = "B"

rs.Update()

' 插下一行新记录，方式B

conn.Execute("insert into zhiwu (code,name) values(5,'B')")

' 插下一行新记录，方式C

rs.open ("insert into zhiwu (code,name) values(5,'B') ",conn,1,3)

' 插下一行新记录，方式D

rs.Execute("insert into zhiwu (code,name) values(5,'B') ",conn,1,3)

我试过了上面4种方法都不行，可以查询，插入不了，请帮我看看，谢谢！

Dim connetionString As String

Dim cnn As SqlConnection

Dim cmd As SqlCommand

Dim sql As String

connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

sql = "Your SQL Statement Here"

cnn = New SqlConnection(connetionString)

Try

cnn.Open()

cmd = New SqlCommand(Sql, cnn)

cmd.ExecuteNonQuery()

cmd.Dispose()

cnn.Close()

MsgBox(" ExecuteNonQuery in SqlCommand executed !!")

Catch ex As Exception

MsgBox("Can not open connection ! ")

End Try

展开