解决方案 »
- 如何让在Listbox里选中的值,如:张三,让张三的具体情况,如:身高,年龄,体重等各项值分别显示在Textbox里?
- 如何远程(如通过互联网)连接access数据库的方法!?
- 用api进行注册表操作,怎样给reg_sz类型的键赋予一个多行的值?
- 关于WORD文本框编程的问题
- 怎么把文本文件中在十六进制模式下显示为00字符去掉啊
- 为什么在源程序下能删除一条纪录,但是编译完了就删除不了呢?(在线等,急)
- 李洪根,为什么我用你的方法从一个表中导出数据到EXCEL中,会把最后一条记录漏掉?
- 关于optionbutton
- 如何把一个位图数组显示在Picture控件里?
- 可不可以用户下载一个程序安装后,可以在这个程序中修改网站上注册的用户名或密码,不用在网站登录,用它就可以了?
- 关于生成标准的EXE的问题,很棘手!!
- vsflexgrid??????自带combox的问题
QZ N(10,2)
请楼主用dBASE 5.0;驱动试试。我用ADO(不是DAO)给你示范,仅供参考:Private Sub Command1_Click()
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1;Extended Properties=dBASE 5.0;User ID=Admin;Password=;"
conn.Open
conn.Execute "CREATE TABLE TableName (SCRQ varchar(8) NULL,ZQDM varchar(8) NULL,ZQJC varchar(20) NULL,QZ Numeric(10,2) NULL, ZSP Numeric(20,10) NULL,CCSL Numeric(12) NULL,SXSL Numeric(12) NULL,HL Numeric(10,8) NULL,KYTC Numeric(20,2) NULL)"
conn.Execute "INSERT INTO TableName (zsp,KYTC) VALUES (5,6)"
MsgBox "OK"
'执行完成后,你用excel打开TABLENAM.DBF就可看到结果了。
'注意先在C:\下建立叫1的文件夹,然后可以测试本程序。
End Sub