对应的textbox也跟着变：点击datagrid里面记录时
Ⅱ VB.net中如何调用带密码的Access数据库
"Provider=Microsoft.jet.oledb.4.0;data source=" & "含路径的数据库文件" & ";Persist Security Info=False
;jet oledb:database password=" & "数据库密码"
Ⅲ vb.net连接access数据库问题
1，使用ADO connection对象
首先，要建立ADO引用，定义connection这个类，然后实例化对象。
代码完成如下：
<spanstyle="font-size:18px;">DimobjCnAsNewConnection,objRsAsNewRecordset
objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&"实例01.mdb"
objCn.Open
</span>
2，使用ODBC数据源
首先，打开电脑上的ODBC数据源，建立关系。
步骤如下：
1），打开电脑上的ODBC数据源
如下图所示：
右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致
Ⅳ vb.net 如何连接网络access
ACCSOURCE = "\\sever1\test.mdb" 'access的网路路经
Set conn = CreateObject("ADODB.Connection")
Set myrs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" & ACCSOURCE '123为密码，access有密码时需要输入正确密码
Ⅳ VB.NET连接Access数据库报错
你使用Access数据库，在运行程序的电脑要安装Access数据库驱动程序，不然无法连接数据库。另外，新的电脑C盘受限，你可以往其他硬盘分区如D盘写数据。
Ⅵ vb.net读取Access数据库的方法
建立数据集，绑定到窗口。不会的话，把要用的表从数据集拖到窗口，再删除就行了
提取方法
数据及名称.表格名称.rows（2）.item(3).tostring 就是了
Ⅶ VB.NET连接access数据库文件的问题！（请根据详细描述回答！）
工具-连接到数据库 是根据数据库的类型自动创建连接的 Provider=Microsoft.Jet.OLEDB.4.0是access数据库的专有连接
oledbdataAdapter的新建连接可以适用于多种数据库所以Provider不一样,默认是连接sql的,SQLNCLI.1是连接SQL数据库的Provider,因为连接数据库的连接字符串是错误的所以连接失败
Ⅷ 用VB如何访问远程Access数据库
下面是转贴的代码,和访问自己电脑上的ACCESS操作是一样的,无非是登录以及访问的问题, 代码中的192.168.2.36可以换成你需要的远程电脑的IP.
========================
如果想每次都能自动通过验证
在当前目录上建立一inf文件，如Server.inf(其它格式文件也可)
文件内容如下：
net use \\192.168.2.36 "密码" /user:administrator
Private Sub Form_Load()
Dim CnStr As String
Dim Fn As Integer
Fn = FreeFile
Open App.Path & "\Server.inf" For Input As #Fn
Line Input #Fn, ServerConn
Close #Fn
Shell (ServerConn)
CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \\192.168.2.36\c$\Program Files\Sygate\SON\Db\EventLog.mdb;Jet OLEDB:Engine Type=5"
Cn.Open CnStr
End Sub
Ⅸ VB.net如何调用ACCESS数据库中的数据
使用向导设置数据库连接的好处是省去写代码的过程，弊端是不易更改连接
使用代码连接的好处是需要编写代码，但容易更改和维护
如：数据库的位置变化，直接更改代码显然容易一些
代码：
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() 这个方法
Ⅹ 用vb.net操作access数据库
mports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Inherits Form
Private components As System.ComponentModel.Container = Nothing
Private WithEvents lastrec As Button
Private WithEvents nextrec As Button
Private WithEvents previousrec As Button
Private WithEvents firstrec As Button
Private t_books As TextBox
Private t_nl As TextBox
Private t_xb As TextBox
Private t_xm As TextBox
Private t_id As TextBox
Private l_books As Label
Private l_nl As Label
Private l_xb As Label
Private l_xm As Label
Private l_id As Label
Private label1 As Label
Private myDataSet As DataSet
Private WithEvents button1 As Button
Private WithEvents button2 As Button
Private WithEvents button3 As Button
Private WithEvents button4 As Button
Private myBind As BindingManagerBase
Public Sub New ( )
MyBase.New ( )
GetConnected ( )
InitializeComponent ( )
End Sub
'清除在程序中使用过的资源
Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose ( )
End If
End If
MyBase.Dispose ( disposing )
End Sub
Public Sub GetConnected ( )
'创建一个数据连接
Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb "
Dim myConn As OleDbConnection = New OleDbConnection ( )
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM person "
'创建一个 DataSet
myDataSet = New DataSet ( )
myConn.Open ( )
'通过OleDbDataAdapter对象得到一个数据集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter
( strCom , myConn )
'把Dataset绑定books数据表
myCommand.Fill ( myDataSet , "person" )
'关闭此数据连接
myConn.Close ( )
End Sub
'插入数据记录操作代码
Private Sub button2_Click (ByVal sender As Object , _
ByVal e As System.EventArgs) Handles button2.Click
'判断所有字段是否添完，添完则执行，反之弹出提示
If ( t_id.Text <> "" And t_xm.Text <> ""
And t_xb.Text <> "" And t_nl.Text <> ""
And t_books.Text <> "" ) Then
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb"
Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )
myConn.Open ( )
Dim strInsert As String = " INSERT INTO person ( id , xm , xb , nl
, zip ) VALUES ( " & _
t_id.Text + " , '" & _
t_xm.Text + "' , '" & _
t_xb.Text + "' , " & _
t_nl.Text + " , " & _
t_books.Text + ")"
Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )
inst.ExecuteNonQuery ( )
myConn.Close ( )
myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( )
myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( )
myDataSet.Tables ( "person" ).AcceptChanges ( )
Else
MessageBox.Show ( "必须填满所有字段值！" , "错误！" )
End If
End Sub