vb如何读取数据库一行数据？

'读取方法：

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.ListBox1.Items.Clear()

Dim StrRed As StreamReader = New StreamReader("D:\111.txt", System.Text.Encoding.Default)

While Not StrRed.EndOfStream

Me.ListBox1.Items.Add(StrRed.ReadLine())

End While

StrRed.Dispose()

End Sub

End Class

'其它读写方法：

写入：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim strR As New StreamWriter("D:\111.txt", True)'参数True表示 在原来的数据上面添加，如果为False这删除原来的数据 重新写入数据

strR.WriteLine(Me.TextBox2.Text)

strR.Dispose()

End Sub

读取：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim strR As New StreamReader("D:\111.txt")

While Not strR.EndOfStream

Me.TextBox1.Text += strR.ReadLine() &vbCrLf

End While

strR.Dispose()

End Sub

首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library

然后在事件中就可以定义相关的变量进行连接了

下面的例子可能对您有用：

Private Sub Command1_Click()

Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &“数据库的路径和名字” &"Persist Security Info=TrueJet OLEDB:Database Password= &"数据库密码"

sql = "Select * From “ &”表名" &where ID=20"

Rs.Open sql, Conn, 1, 3

If NOT rs.eof then

m_date= rs("日期型字段的名字")

m_data= rs("数值型字段的名字")

end if

上面的例子实现了查询

如果是要添加,删除,更新等 *** 作,只要编写相应的SQL语句,再用

Conn.Execute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

Conn.Execute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

Conn.Execute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

追问：

Conn.Open connstring = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\newdata.mdbPersist Security Info=TrueJet OLEDB:Database Password=123"

这一句发生错误

追答：

您把：

Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &“数据库的路径和名字” &"Persist Security Info=TrueJet OLEDB:Database Password= &"数据库密码"

这句改为下面的两句 您再试试

connstring = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &"数据库的路径和名字" &"Jet OLEDB:Database password=" &"数据库密码"

Conn.Open connstring

假设我的数据库里有十条数据，我要将它们全部都循环读取出来，存到一个数组变量中，该怎么做呢？每个字段存一个数组

这要看您数据库里保存的数据的类型了。

如果都可以转换成字符串型的话

定义一个二维数组就可以了

例如：

1

2

3

4

5

6

7

8

9

10

dim m_data() as string

dim i as integer

do until rs.eof

ReDim Preserve m_data(Rs.Fields.Count - 1, i)

For j = 0 To Rs.Fields.Count - 1

m_data(j, i) = IIf(IsNull(Rs.Fields(j)), "", Rs.Fields(j))

next j

rs.MoveNext

i=i+1

loop

你可以执行如下语句 Set rs1=db.OpenRecordset(select count(*) from dm)

la1=rs1.Fields(0)

里面可能存在某些语法错误，你可以按照VB语法稍作修改即可

---