[Visual Basic]VB连接数据库

 Dim i As Integer,  a(1 To 50) As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset 
conn.ConnectionString = "provider=microsoft.ACE.oledb.12.0;data source=" + App.Path + "\xx.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from xxxxx"
i = 0
Do While Not rs.EOF
   i = i + 1
   a(i) = rs.Fields("名称")
   List1.AddItem a(i)
   rs.MoveNext
Loop
rs.Close
conn.Close

posted @ 2020-03-23 18:43 一晌眠觉阅读(259) 评论(0) 收藏举报

刷新页面返回顶部

登录后才能查看或发表评论，立即登录或者逛逛博客园首页

阅读排行：
· AI 的力量，开发者的翅膀：欢迎使用字节旗下的 AI 原生开发工具 TRAE
· 「闲聊文」准大三的我，思前想后还是不搞java了
· C#性能优化：为何 x * Math.Sqrt(x) 远胜 Math.Pow(x, 1.5)
· 千万级的大表如何新增字段？
· 《HelloGitHub》第 112 期

#还没想好取什么标题#

某科A院大一狗

[Visual Basic]VB连接数据库

我的标签

阅读排行榜

	Dim i As Integer, a(1 To 50) As String
	Dim conn As New ADODB.Connection
	Dim rs As New ADODB.Recordset
	conn.ConnectionString = "provider=microsoft.ACE.oledb.12.0;data source=" + App.Path + "\xx.accdb"
	conn.Open
	Set rs.ActiveConnection = conn
	rs.Open "select * from xxxxx"
	i = 0
	Do While Not rs.EOF
	i = i + 1
	a(i) = rs.Fields("名称")
	List1.AddItem a(i)
	rs.MoveNext
	Loop
	rs.Close
	conn.Close