vb.net和Access数据库连接:读取数据库中表的一列值的问题。 vb.net如何获取access数据库表中的一列数据添加到c...
VB.NET\u8fde\u63a5ACCESS\u6570\u636e\u5e93\uff0c\u8bfb\u53d6\u67e5\u8be2\u5e76\u663e\u793a\u7ed9\u4f60\u5199\u4e2a\u4f8b\u5b50\uff0c\u4e0d\u660e\u767d\uff0c\u518d\u95ee\uff01\uff01
'\u5f15\u5165OLEDB\u547d\u4ee4\u7a7a\u95f4
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'\u5b9a\u4e49\u4e00\u4e2aOLEDB\u8fde\u63a5\u5e76\u5b9e\u4f8b\u5316\u5b83
Dim con As New OleDbConnection
'\u5b9a\u4e49\u4e00\u4e2aOLEDB\u547d\u4ee4\u5e76\u5b9e\u4f8b\u5316\u4ed6
Dim cmd As New OleDbCommand
'\u5b9a\u4e49\u4e00\u4e2aOLEDBReader\u65b9\u6cd5\u6765\u8bfb\u53d6\u6570\u636e\u5e93
Dim dr As OleDbDataReader
'\u521d\u59cb\u5316con\u7684\u8fde\u63a5\u5c5e\u6027\uff0c\u4f7f\u7528OLEDB\u6a21\u5f0f\uff0c\u6570\u636e\u6e90\u4e3a\uff1a\u4f60\u6307\u5b9a\u4e0b\u8def\u5f84\uff0c\u6211\u7684\u662f\u5728D\u76d8
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'\u6253\u5f00OLEDB\u6570\u636e\u8fde\u63a5
con.Open()
'\u521d\u59cb\u5316OLEDB\u547d\u4ee4\u7684\u8fde\u63a5\u5c5e\u6027\u4e3acon,\u8fd9\u4e2a\u9700\u8981\u4f60\u7406\u89e3\u4e0b
cmd.Connection = con
'\u521d\u59cb\u5316OLEDB\u547d\u4ee4\u7684\u8bed\u53e5 \u5c31\u662f\u67e5\u8be2 \u4ec0\u4e48\u5b57\u6bb5\u4ece\u4ec0\u4e48\u8868 \u6761\u4ef6\u662fID\u7b49\u4e8e\u4f60\u5728t1\u4e2d\u8f93\u5165\u7684\u5185\u5bb9
cmd.CommandText = "select keyss from table1 where ID=" & t1.Text & ""
'\u6267\u884cOLEDB\u547d\u4ee4\u4ee5ExecuteReader()\u65b9\u5f0f\uff0c\u5e76\u8fd4\u56de\u4e00\u4e2aOLEDBReader\uff0c\u8d4b\u503c\u7ed9dr
dr = cmd.ExecuteReader()
'\u5224\u65ad\u4e0bdr\u4e2d\u662f\u5426\u6709\u6570\u636e\u3002\u5982\u679c\u6709\u5c31\u628a\u7b2c\u4e00\u4e2a\u503c\u8d4b\u503c\u7ed9t2\u7684\u503c
If dr.Read() Then
t2.Text = dr(0)
End If
'\u5b8c\u6210\u540e\u5173\u95eddr.con\u7b49\u91ca\u653e\u8d44\u6e90
dr.Close()
con.Close()
End Sub
End Class
\u5728\u6dfb\u52a0\u8bed\u53e5\u524d\u540e\u52a0\u4e0a\u4e00\u4e2a\u5faa\u73af\u8bed\u53e5\uff0c\u68c0\u6d4b\u662f\u5426\u5230\u6570\u636e\u8868\u7684\u672b\u5c3e\u4ee5\u53ca\u79fb\u52a8\u5f53\u524d\u8bb0\u5f55\u6307\u9488\u3002
'vs2010,VB10 牧固图imports system.data
imports system.data.oledb
dim conn as OleDbConnection=new OleDbConnection
conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Db & ";Persist Security Info=True"
dim cmd as new sqlcommand
Dim cmd As OleDbCommand = New OleDbCommand
cmd.CommandText = "Select Name from Elements"
dim da as new OleDbDataAdapter
da.SelectCommand =cmd
dim ds as new Dataset
da.fill(ds)
conn.close
dim dt as datatable=ds.tables(0) '从数据库里面读出一列,放入了一个dataTable里面去。
'dt可以绑定到控件。如combobox
combo1.datasource=dt
combo1.displaymember="Name"
Imports System.Data.OleDb
Imports System.Data
Imports System.IO
Public Class Form1
Public con As New OleDb.OleDbConnection
Public cmd As New OleDbCommand
Public dr As OleDbDataReader
Public oName() As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
Dim mcount As Long
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Users\lafox\Desktop\inventor编程示例\FasernElement.accdb;Persist Security Info=False"
cmd.Connection = con
cmd.CommandText = "Select * from Elements"
con.Open()
mcount = cmd.ExecuteScalar
dr = cmd.ExecuteReader
Try
While dr.Read
Label1.Text = Label1.Text & String.Format("{0}", dr(0)) & Chr(13)
ComboBox1.Items.Add(String.Format("{0}", dr(0)))
mcount = mcount + 1
End While
Catch ex As Exception
End Try
End Sub
End Class
绛旓細Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click '瀹氫箟涓涓狾LEDB杩炴帴骞跺疄渚嬪寲瀹 Dim con As New OleDbConnection '瀹氫箟涓涓狾LEDB鍛戒护骞跺疄渚嬪寲浠 Dim cmd As New OleDbCommand '瀹氫箟涓涓狾LEDBReader鏂规硶鏉ヨ鍙鏁版嵁搴 Dim dr As ...
绛旓細鍙互浣跨敤OLE 鍘绘坊鍔犲拰涓嬭浇闄勪欢
绛旓細浠ヤ笅鏄畬鏁存ā鍧 Imports System.DataImports System.IOImports System.Data.OleDbModule Module1Public cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS鏁版嵁搴.mdb") '瀹氫箟杩炴帴---杩欓噷璇锋洿鏀逛负瀹為檯鏁版嵁搴撹矾寰勫強鍚嶇ОPublic DataBaseRST As Integer '鐢ㄦ潵杩斿洖鏁版嵁...
绛旓細鍙傝冧竴涓嬩笅闈㈣繖娈典唬鐮侊細Imports System.Data.OleDb Public Class Form1 Dim SqlCOM As OleDbConnection Dim SqlUse As OleDbDataAdapter Dim Dt As DataSet Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try '杩炴帴鏁版嵁搴 SqlCOM = New ...
绛旓細瑙佷笅闈㈢殑浠g爜锛岃嚜宸辨崲鎴愮湡瀹炵殑鏁版嵁搴撳強琛ㄥ嵆鍙 Imports System.DataImports System.IOImports System.Data.OleDbModule Module1 Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS鏁版嵁搴1.mdb") '瀹氫箟杩炴帴1---杩欓噷璇锋洿鏀逛负瀹為檯鏁版嵁搴撹矾寰勫強鍚嶇О P...
绛旓細'vs2010,VB10 鐗у浐鍥 imports system.data imports system.data.oledb dim conn as OleDbConnection=new OleDbConnection conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Db & ";Persist Security Info=True"dim cmd as new sqlcommand Dim cmd As OleDbCommand = New ...
绛旓細'娴嬭瘯鐢ㄦ埛鍚嶅強瀵嗙爜鏄惁鏈夋晥 ADOConn.ConnectionString = LinkDatabase(System.Environment.CurrentDirectory) '鍙傛暟涓哄綋鍓嶇洰褰曚綅缃 ADOConn.CommandTimeout = 10 ADOConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient ADOConn.Open()Adors.Open("select * from Tables where 濮撳悕='" & Trim(Username...
绛旓細妤间富鎮ㄥソ銆傛偍鐨勪唬鐮佺己灏戜竴鍙ワ紝鎵浠ュ畠娌℃湁鏃舵椂鏇存柊銆傛坊鍔狅細dbConnection.Close()鎮ㄥ彧鎵撳紑娌℃湁鍏抽棴銆傛墍浠ョ浜屾鎵撳紑鐨勮繕鏄涓娆$殑鏁版嵁闆嗐侳unction GetMDB_DataSource(ByVal sql As String) As DataTable Dim DataAdapter As New OleDb.OleDbDataAdapter Dim dtls As New DataTable Dim dbConnectionString...
绛旓細Dim conn As OleDbConnection = New OleDbConnection Dim cmd As OleDbCommand = New OleDbCommand conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/test.mdb" '杩欓噷鏄綘鐨鏁版嵁搴撹矾寰勶紝褰撶劧鍙湪閰嶇疆鏂囦欢閲岃缃 cmd.Connection = conn '涓嬮潰鏄鍙栦竴鏉℃暟鎹埌textbox閲 cmd...
绛旓細Provider=Microsoft.ACE.OLEDB.4.0;Data Source=|DataDirectory|\Temp\aaa.accdb;Persist Security Info=True 鎴 Provider=Microsoft.ACE.OLEDB.4.0;Data Source=|DataDirectory|\Temp\aaa.accdb;Persist Security Info=True 鎴 Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="E:\Program Files\...