Question

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

我要在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”,如何写代码。

Answer 1

连接数据库

方法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