vb.net 怎么 *** 作数据库

如果楼主熟悉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()

'关闭连接

使用向导设置数据库连接的好处是省去写代码的过程，弊端是不易更改连接

使用代码连接的好处是需要编写代码，但容易更改和维护

如：数据库的位置变化，直接更改代码显然容易一些

代码：

imports System.data.oledb /*引用命名空间*/

dim cnstr = "provider=microsoft.jet.oledb.4.0,data source=Access数据库文件位置" /*定义连接字符串*/

dim cn as oledbconnection = new oledbconnection(cnstr) /*定义连接*/

cn.open() /*打开连接*/

sqlstr="select... from... 或其他sql"

dim cmd as sqlcommand=new sqlcommand()

cmd.commandtext=sqlstr

cmd.connection=cn

/*以上是建立执行语句*/

cmd.executenonquery() 不返回结果

cmd.executescalar() 返回单个结果

cmd.executereader() 返回结果集

/*以上是执行sql语句的方法*/

cn.close() /*关闭连接*/

你要做用户验证的话，先根据用户名查询对应的密码，再判断用户输入的密码和查询结果是不是相同就可以了

用cmd.executescalar() 这个方法

---