请问各位DX我想用adodc向sql数据库中添加记录改怎么添加呀·adodc的属性是怎么设置的?记录源怎么设置呀···
解决方案 »
- 如何书写下列的代码 急!!!在线等!!!
- vb做的ocx在vc和vb.net中调用有问题,但在vb中调用没有问题。
- 求助!!!在ole中链接Word.如何翻看第二页和第三页??
- 如何把自己做的vb程序做成服务现在分没有了抱歉希望能得到帮助
- 请问 怎么限制 在文本框中 只能输入数字?而不能输入字母之类的
- 一个ComboBox问题!
- VBS文件是如何运行的?
- 求具有XP风格的图标,比如首记录、前一个、下一个、末记录等。谢谢啦,我的结帖率可是100%阿
- 如何在我的程序中显示一个GIF动画????
- VB
- vb6调用c#写的webservice,中文乱码
- 困扰了几天的问题呀,把弹出的播放窗口用movewindows移动了地方就放不了?
Private Sub Form_Load()
'连接字符串
Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1"
'查询businessman表中全部信息
Adodc1.RecordSource = "select * from businessman"
'用datagrid显示查询信息
Set DataGrid1.DataSource = Adodc1 End Sub '设置insert语句
sqlstmt = "insert into businessman (businessmanid,businessmanname,country,province,city,address,linkman,telephone,fax)" _
+ "values('" + Trim(businessmanid) + "','" + Trim(businessmanname) + "','" + Trim(country) + "','" + Trim(province) + "','" + Trim(city) + "','" + Trim(address) + "','" + Trim(linkman) + "','" + Trim(telephone) + "','" + Trim(fax) + "')"
With Adodc1
.Recordset.AddNew
.Recordset!时间 = Trim(lblDisplay.Caption)
.Recordset!地点 = Trim(Complete.Text)
.Recordset!备注 = Trim(time.Text)
.Recordset.Update
End With
添加记录