VS 的VB语言怎么执行SQL语句还有怎么输出表里的内容 求解答！谢谢！ 连接数据库已经会了！

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 26 library和 microsoft activeX Data objects recordset 26两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn = New ADODBConnection

Set rs = New ADODBRecordset

第一种方法采用的是无源的数据库连接方法

connConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

connConnectionTimeout = 30

connOpen

rsOpen "select 用户名,密码 from login where 用户名='" & Trim(Combo1Text) & "' And 密码='" & Trim(Text1Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rsEOF = True And rsBOF Then

m = MsgBox("请重新登录", vbExclamation)

Text1Text = ""

Text1SetFocus

Else

Form1Hide

End If

rsClose

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn = New ADODBConnection

Set rs = New ADODBRecordset

connConnectionString = "DSN=login;uid=sa;pwd=;"

connConnectionTimeout = 30

connOpen

rsOpen "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t = 0 To Val(rsRecordCount) - 1

i = Trim(rsFields("用户名")Value)

rsMoveNext

Combo1AddItem i

Next t

rsClose

创建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 长变长二进制数据。

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

用MICROSOFT jet 40 OLE DB Provider引擎连接ACCESS数据库,方法如下:

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开 ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT jet 40 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

我刚从别处看完这个，试过了。正好你也用就粘山来了

>

从“工程”菜单中“引用” 引用Microsoft ActiveX data objects 28

private sub command_click()

Dim mycon As ADODBConnection '定义连接数据库对象

'如果你的数据库是access用下面的方式打开数据库

'

myconConnectionString = "provider= microsoftjetoledb40;data source=" & AppPath & "/ 这里写数据库名mdb"

''

'如果你的数据库是SQL的用下面的方式打开数据库

'myconConnectionString = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=数据库名;Data Source=\sqlexpress"

'

myconOpen '打开数据库

Dim rst As New ADODBRecordset '定义一个记录集 ，用来打开表记录

sql="select from information"

rstOpen Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集

rstaddnew '添加空记录

rstfields(0)=text1,text

rstfields(1)=text2,text

rstfields(2)=text3,text

rstfields(3)=text4,text

rstfields(4)=text5,text

rstupdate '更新数据库

msgbox"数据录入成功"

这样就可以了！ 不过我发现你的界面好像是VBNET的，如果是VBNET的你把邮箱发过来我直接过你发过去好了！

以上就是关于VS 的VB语言怎么执行SQL语句还有怎么输出表里的内容 求解答！谢谢！ 连接数据库已经会了！全部的内容，包括:VS 的VB语言怎么执行SQL语句还有怎么输出表里的内容 求解答！谢谢！ 连接数据库已经会了！、在VB中如何用SQL语言在一个数据库中建立一个表、VB6.0 如何连接SQL 数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！