怎样将数据录入到SQL数据库中,请大家帮帮小弟! 什么意思呀??你是怎么录入呀,是通过vb程序吗还是直接到数据库里面录入呀 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim cnn1 As New ADODB.ConnectionDim rst As New ADODB.RecordsetDim cnnstr As Stringcnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"cnn1.Open cnnstrWith rst .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "select * from stu", cnnstr .AddNew .Fields("字段1") = "1" .Fields("字段2") = "2" .Fields("字段3") = "3" .Fields("字段4") = "4" .Fields("字段5") = "5" .Update .UpdateBatch adAffectAllChaptersEnd WithSet Form1.MSHFlexGrid1.DataSource = rstrst.Closecnn1.Close其中cnnstr需要换成连接sql server的字符串可以用ADODC控件生成 从没遇见,getTickCount只能得到64HZ的时间间隔,求教 请教INET控件改FTP密码 如何做一个类似QQ尾巴的程序?寻找思路。 网络打印机打印控制 如何捕获鼠标点击坐标 shell调用其它xxx.EXE的问题 一个小程序 怎么给Catia加菜单,急。。。 ▲▲ 百分求救!!!请教高手一个关于WebBrowser的问题!!!( 【在线等待,立即给分,不够在加】) 少了一位?! 请问open函数的功能和使用方法。 如何用vb编程发E--mail?.........
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from stu", cnnstr
.AddNew
.Fields("字段1") = "1"
.Fields("字段2") = "2"
.Fields("字段3") = "3"
.Fields("字段4") = "4"
.Fields("字段5") = "5"
.Update
.UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
其中cnnstr需要换成连接sql server的字符串
可以用ADODC控件生成