怎么把vb6.0中的text中的数据导入access2003数据库中

鄙人纯新手,如果有截屏最好。代码实在是晕。汗颜啊
已有数据库

用户类型未定义,需要引用 Microsoft DAO 3.6 Object Library 才可以连接数据库。
点击【工程】菜单下的【引用】命令,弹出窗口中:勾选 Microsoft DAO 3.6 Object Library 试试看。
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-10-03
Dim adocn As New ADODB.Connection

Private Sub Command1_Click()
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
adocn.Execute "insert into 表一 (学号,姓名,金额) values ('" & text1.text & "',

'" & text2.text & "',

'" & text3.text & "'

)"
adocn.Close

End Sub

怎么把vb6.0中的text中的数据导入access2003数据库中
点击【工程】菜单下的【引用】命令,弹出窗口中:勾选 Microsoft DAO 3.6 Object Library 试试看。

怎样才能在VB6.0 中连接Access 2003数据库
二:设置INI文件路径。在VB的程序中使用了访问外来数据库操作,将应用程序生成EXE文件后,必须提供一个INI文件。若找不到这个INI文件,将会导致不能访问数据库,并出现“NOTFOUNDIN STOLLABKISAMS’的错误信息。设置INI文件路径后,VB的程序会在WINDOWS子目录中寻找与应用程序同名的INI文件。设置INI文件路径...

用vb6.0写一个将Excel数据导入access中的程序
App.Path & "\\db.mdb"--你的VB程序在哪运行,就在哪儿生成mdb 'App.Path = Application Path ExportExcelSheetToAccess "authors", "E:\\abc.xls", "bcd", App.Path & "\\db.mdb"

如何在vb text文本框控件中,显示access数据库中的表
1)ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接,显示测试成功则ok,确定。2)ADODC属性页→记录源→命令类型选择2-adcmdtable,表或存储过程名称选择之前建立的数据表test,点击确定,ADODC属性设置完成。7...

VB 6.0无法使用控件的问题,希望来高手解决
这可能是控件版本新旧问题。例如,你把VB6.0的MSCOMCTL.OCX控件打包入Exe,当操作office 2003中Access的数据库时,因为office 2003中的MSCOMCTL.OCX要比VB6.0的MSCOMCTL.OCX版本要新,系统就会提示:“没有合法授权”。这个例子的解决方法是:不把VB6.0的MSCOMCTL.OCX控件打包,而是让系统运行office 2003...

VB怎么能识别出ACCESS
VB 6.0 只能识别ACCESS97 以下版本的ACCESS数据库。可以用ACCESS2003先把数据库转换成低版本的。这样才能用。

★★★急求!!!★★★vb 6.0和access 2003连接时出现未发现数据源名称并...
例:数据库名:user;表名:account;字段u_id,u_name,u_pass;界面:很长时间没用vb了基本上就是这样。数据库和记录集的关闭可以放到unload事件

如何用VB打印表格
在使用VB打印表格时,可以采用一种相对简便的方法。首先,你需要在Excel中创建报表。Excel因其强大的数据处理能力,是制作报表的首选工具。在完成报表制作后,接下来的步骤就是将报表导入到Access数据库中。为了确保数据安全,建议在导入Access之前,为数据库设置密码。这样可以有效防止未经授权的访问。在导入...

★★★急求!!!★★★vb 6.0和access 2003连接时出现未发现数据源名称并...
未指定默认驱动程序应该添加引用吧

VB6.0获取webbrowser控件网页的表格内容导入数据表中。
tbname = InputBox("输入导入数据库的新建的表的名字", "table1")For i = 0 To lrow.cells.length - 1 FLD(i) = Replace(Replace(Replace(lrow.cells(i).innerText, "\/", ""), "(", ""), ")", "")sql = sql & FLD(i) & " varchar(255),"Next i sql = Left(sql, ...

相似回答
大家正在搜