怎样将数据录入到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控件生成 两个EXE文件的合并问题 VB sql语句太长要分行的问题?急急! API中SendMessage的问题 vb 中打不开*.MDB是什么原因? Form_KeyPress的问题 Do Evens? 如何实现类似于qq的消息提示! 急问:VB中有没有读取机器MAC地址的控件?? 怎样利用索引来查询某个记录? 事件的后期绑定 请问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控件生成