在VB中怎样连接sql数据库的具体 *** 作？

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

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

4、连接参数。

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

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

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

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样 *** 作数据库了！

另外

.NET

Framework中连接数据库要用到ADO.NET。如果要 *** 作Access数据库，要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：

'首先导入命名空间

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一个事件处理程序中写：

Dim

conn

As

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0Data

Source=数据库.accdbJet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

数据表",

conn)

conn.Open()

'打开数据库连接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'执行SQL语句，返回OleDbDataReader

对象

Do

While

reader.Read()

'读取一条数据

textbox1.Text

+=

reader("一些数据")

&

VbCrLf

Loop

reader.Close()

'关闭OleDbDataReader

conn.Close()

'关闭连接

先数据写入ACCESS数据库（写说）打access

点工具 实用数据库工具 转换数据库 转换access 97 文件格式保存

退

进入vb窗体加入data控件MSFlexGrid控件（工具栏右键 部件 控件窗口选择microsoft MSFlexGrid Control6.0 （sp6）确定）单击DATA控件（窗体）属性窗口设置DATAbaseName编写数据库路径connectaccess access 2000accordsource选择数据库表名

再单击MSFlexGrid控件属性窗口设置datasourcedata1.

完 *** 作数据库读vb

实要写点代码用MS控件显示用text显示加代码：

Private Sub Data1_Validate(Action As Integer, Save As Integer)

If Not Data1.Recordset.BOF And Not Data1.Recordset.EOF Then

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveLast

End If

End Sub

---