在VB中如何用SQL语言在一个数据库中建立一个表

创建MDB文件

工程菜单－>引用，在d出的窗体中选择Microsoft ADO Ext 2X for DDL and Security，“2X”表示版本。 Dim cat As New ADOXCatalog '日志变量

Dim tbl As New ADOXTable '表变量

Dim pstr As String '数据库连接配置

Dim db As String '数据库名及路径

db = AppPath & "\conmagmdb"

pstr = "Provider=MicrosoftJetOLEDB40;Jet OLEDB:Database Password=xfenghany;" & "data source=" & db

catCreate pstr '创建库文件

catActiveConnection = pstr '连接库

tblName = "coner" '表定义

tblColumnsAppend "cname", adVarWChar, 50 '表定义

tblColumnsAppend "ccall", adVarWChar, 50 '表定义

tblColumnsAppend "ctele", adVarWChar, 50 '表定义

tblColumnsAppend "cext", adVarWChar, 50 '表定义

tblColumnsAppend "cmail", adVarWChar, 50 '表定义

tblColumnsAppend "chome", adVarWChar, 50 '表定义

tblColumnsAppend "cwork", adVarWChar, 50 '表定义

tblColumnsAppend "cgx", adVarWChar, 50 '表定义

catTablesAppend tbl '生成表

Set tbl = Nothing Set tbl = New ADOXTable

tblName = "tbltwo" '表定义

tblColumnsAppend "nosee", adVarWChar, 50 '表定义

catTablesAppend tbl '生成表

Set tbl = Nothing指示列的数据类型 常量 说明

adTinyInt 精确的数字值，精度为小数点后 3 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdSmallInt 精确数字值，精度为小数点后 5 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdInteger 精确数字值，精度为小数点后 10 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdBigInt 精确数字值，精度为小数点后 19 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdUnsignedTinyInt 无符号的 adTinyInt。

AdUnsignedSmallInt 无符号的 adSmallInt。

AdUnsignedInt 无符号的 adInteger。

AdUnsignedBigInt 无符号的 adBigInt。

AdSingle 单精度浮点数。

AdDouble 双精度浮点数。

AdCurrency 货币类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdDecimal 变体型十进制类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdNumeric 数值类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdBoolean 变体布尔类型。0 为假而 ~0 为真。

AdUserDefined 用户定义的变量长度数据类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdVariant 自动变体型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdGuid 全域唯一标识符。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdDate 自动日期。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdDBDate 数据库日期数据结构。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdDBTime 数据库时间数据结构。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdDBTimestamp 数据库时间戳结构。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdBSTR BSTR 的指针。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。

AdChar 定长字符串。

AdVarChar 变长字符串。

AdLongVarChar 长变长字符串。

AdWChar 宽定长字符串。

AdVarWChar 宽变长字符串。

AdLongVarWChar 长、宽变长字符串。

AdBinary 定长二进制数据。

AdVarBinary 变长二进制数据。

AdLongVarBinary 长变长二进制数据。

Dim cn As New ADODBConnection

Dim sr As New ADODBRecordset

Dim jibie As Integer

cnOpen "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=(我的student表）;Data Source=(你的服务器名字)"

srOpen "select from TABLE1 where 姓名='" & Text1Text & " '", cn, 1, 3

If srEOF = True Then

MsgBox "用户名错误"

Else

If sr!密码 = Text2Text Then

jibie = sr!级别

If jibie <= "50" Then

Form4Show

ElseIf jibie = "100" Then

Form2Show

End If

Else

MsgBox "密码错误"

End If

End If

创建SQL Server 2000数据库

Dim ADOcn As New ADODBConnection

Dim Sqls As String

'连接到master数据库，创建新数据库

ADOcnConnectionString = "driver={SQL Server};server=;uid=sa;pwd=;database=master"

ADOcnOpen

'DISK INIT NAME='我的数据库'，是数据库名称，显示在企业管理器中的名称

'PHYSNAME='d:\我的数据库_Datamdf'，是数据库文件名

'SIZE=5120，数据库初始大小

Sqls = "DISK INIT NAME='我的数据库',PHYSNAME='d:\我的数据库_Datamdf',SIZE=5120" '在硬盘上建立数据库文件

ADOcnExecute Sqls

Sqls = "CREATE DATABASE 我的数据库 on 我的数据库=5120" '创建数据库

ADOcnExecute Sqls

ADOcnClose

以上就是关于在VB中如何用SQL语言在一个数据库中建立一个表全部的内容，包括:在VB中如何用SQL语言在一个数据库中建立一个表、vb创建sql数据库、求创建SQL（2000）数据库的VB代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！