VB中使用ODBC连接数据库,如何创建ACCESS数据库表

来源:百度知道 编辑:UC知道 时间:2024/05/17 22:00:53
我要在VB程序中创建新的ACCESS数据库表“st_gate”,ACCESS数据库名称是"xiaan.mdb",我的VB连接ACCESS数据库是用的ODBC数据源,ODBC连接VB代码如下:

'×××××××××××××××××××××××××××××
Open FPAth & "lnkrfcst.dat" For Input As FN
Input #FN, PLACn '数据库类型
Input #FN, Fj '数据源名xiaan
Input #FN, Fuid '用户名 sa
Input #FN, Fpwd '密码为空
Input #FN, Fdb '数据库名称xiaan
Close #FN
Conn = "DSN=" & Fj & ";UID=" & Fuid & ";" & "PWD=" & Fpwd & ";DATABASE=" & Fdb & ";" '数据源名,用户名,用户口令,数据库名
Set EN = rdoEnvironments(0) '设置环境
Set CN = EN.OpenConnection("", rdDriverNoPrompt, False, Conn) '建立连接
‘××××××××××××××××××××××××××××××

请问各位达人,我要在VB程序中创建新的ACCESS数据库表“st_gate”,如何写代码。

连接数据库

方法1:
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

方法2:
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

注意:一个页面中,只要连接一次就可以了,数据库使用完后要及时关闭连接。
conn.Close
Set conn = Nothing
参考资料:http://www.haao.cn/article.asp?id=5