vb连接数据库 VB连接数据库多表查询数据

vb测试连接数据库

使用ACCESS查询对象是无法一次运行多个SQL语句的，但是通过ACCESS

Dim conn As ADODB.Connection

vb连接数据库 VB连接数据库多表查询数据

vb连接数据库 VB连接数据库多表查询数据

Else

Private Sub Command1_Click()

O3、在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServs运行．比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/MicrosoftSQL。n Error Resume Next

conn.Open

MsgBox conn.State

End Sub

Set conn = New ADODB.Connection

conn.CursorLocation = adUse

conn.ConnectionString = ""

End Sub

如果conn.state 返回值为0，数据库连接失败，为1连接成功

VB连接Access数据库具体步骤，越详细越好

Sub

有多种连接方式，可以用数据控件连接，也可以用组件连接。下面是用ADO组件来连接的例子（定ACCESS数据库文件和程序至于你的语句要执行什么作就自己写了是放在同一个文件夹的）：

Private Sub Form_Click() '点击窗体运行

Dim conn As Object, rs As Object

conn.Open "provider=Microsoft.Jet.OLEDB.4.2、 用The OLE DB .NET Data Provider连接数据库0; Data Source=" & App.Path & "a.mdb"

Set rs = CreateObject("Adodb.Recordset")

rs.Open "select from b", conn, 1, 1

'这里是循环列出表b中的每条记录，熟悉的人就知道怎么做了

rs.MoveNext

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

End Sub

如何在VB6中连接远程的数据库

e.printStackTrace();

最近测试过程中，老需要远程登录到外网的一套上面做测试，但是因为不少开发GG也在上面部署新的代码，所以互相T来T去的，着实比较痛苦和纠结。。

今天终于找到一个临时的解决办法，就是偶在万不得已的情况下再远程登录，如果只涉及数据库作（测试数据查询，修改等），可以在本地连接上面的数据库。

1.安装putty，plink（放到C:Documents and Settingsadministrator目录下）

3.在命令行执行 plink -L 50081:192.168.0.:1433 -l dev -pw mozat 210.193..（这条命令是映射本地端口50081 到192.168.0.:1433)

4.打开sql servermamentDo Until rs.EOF studio，输入：127.0.0.1,50081,数据库用户名/密码，连接即可

5.然后在另一个命令行窗口中执行 mstsc /v:localhost:1433 /admin 即可进行远程登录

其中1433是连接默认的那个数据实例，可按需更改你需要连接的数据实例；50081可以随便使用，尽量用大一些，以免和其他的冲突，当然不要大于Loop6W多就好

这样就不要远程登录到才能进行数据库作了。

VB怎样读取数据库并显示出来？

}}

VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开"工程-引用",选择其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以): x0dx0aACCESS数据库名为"学生.mdb"其中有张数据库表名为"表",下面就介绍如何使用代码进行连接到数据库"学生",代码如下: x0dx0aFunction Connection() As String x0dx0a'数据库的连接字符设置 x0dx0aConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Dim rst As New ADODB.Recordset & App.Path + "学生.mdb" x0dx0aEnd Function x0dx0a数据库"学生.mdb"在当前目录下,故使用APP.Path x0dx0aPrivate Sub Form_Load() x0dx0aDim mr As New ADODB.Recordset x0dx0aDim cnn As New ADODB.Connection x0dx0aDim Sql As String x0dx0aSql="select from 表" x0dx0acnn.Open Connection '使用cnn对象打开数据库连接 x0dx0amr.Open Sql, cnn, adOpenKeyset, adLockOptimistic x0dx0a'打开数据库记录 x0dx0aIf mr.eof then x0dx0amsgbox "数据库表为空!" x0dx0aelse x0dx0amsgbox "数据库表不为空!" x0dx0aend if x0dx0aset mr=nothing x0dx0a'关闭记录对象 x0dx0aset cnn=nothing x0dx0a'关闭连接对象 x0dx0aEnd Sub x0dx0aOK,程序到此,已经能成功地访问数据库了,并能打开数据库中的表

'Pwd后面填写密码即可连接

用vb连接access数据库以后，如何一次性执行多条sql语句

以Set DataGrid1.DataSource = rst '给DataGrid修改数据源上回答你满意么？

VBA代码可以实现一次运行多个SQL语句。下面是具体实现方案;

1)新建一个ACCESS窗体，窗体添加一个命令按钮；

2）编写按钮单击过程

Private

Command1_Click()Dim

strSql

as

stringstrSQL="Update

Policy

SET

LatestDueDate=Year(Date())

&'-'

&Format(PolicyDate,'mm-dd')"

Do'运行第二个更新语句Cmd.RunSql

strSQL

'运行个更新语句strSQL="UPDATE

Policy

SET

LatestDueDate=

DateAdd('yyyy',1,LatestDueDate)

WHERE

(((Month(Date())-Month(LatestDueDate))

>6)

DoCmd.RunSql

strSQL

End

跟着点击该命令按钮就可以一次执行两条语句了。

怎么用VB连接到有密码的ACCESS数据库？

Dim oleDbConnection1 As OleDb.OleDbConnection

APublic SqlConn As String = "data source=127.0.0.1;initial catalog=textbox1.text.trim;user id=sa;pwd=这里是数据库登陆密码;"CCESS

2.如果在安装在其他目录下，从命令行进入 putty.exe 所在的目录

constr=

"Driver={Microsoft

Access

Driver

求VB登陆窗口连接ACCESS数据库的代码

Dim cnn As System.Data.Sql.SqlConnection = New System.Data.Sql.SqlConnection(SqlConn)

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3username = rob.getString("uname");.51;"&"DataSource="&App.Path&objCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnec的连接字符:tion

objCn.Open“DSN=实例2DSN”

3、ADOData控件创建连接

扩展资料

ACCESS数据库特性

2、access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其的优点是：易学，非计算机专业的人员，也能学会。

vb连接db数据库

i = pst.executecon.Open connUpdate();

Public Const Sdatah = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=baodao;Initial Catalog=baodao;Data Source=192.9.201.202;password=passpass" Public DAcon As Connection ' Public DHR(100) As Recordset 'recordset Public NUM As Integer 'DIM DATA'NUMBER Public Sub datahs() ' On Error GoTo over Set DAcon = New Connection DAcon.Open Sdatah DAcon.CursorLocation = adUse Exit Sub over: MsgBox "错误:资料库路径不正确", vbOKOnly, "错误" End End Sub Public Sub Dar(Str As String) NUM = NUM + 1 If NUM > 10 Then '上之三数组溢出处理 NUM = 0 End If Set DHR(NUM) = New Recordset DHR(NUM).Open Str, DAcand(PaymentMode='H'))"on, , adLockPessimistic End Sub Public Sub dataclose(NUM1 As Integer) 'close all DAropene On Error GoTo err35 DHR(NUM1).Close Set DHR(NUM1) = Nothing NUM = NUM - 1 err35: Exit Sub End Sub 然后就可以很方便的调用了 call dar(ssql) '这样就可以了

vb连接数据库

pst = con.prepareStatement(sql);

1、 用The SQL .NET Data Provider连接数据库

sqlConnection1.open ‘打开数据库

The SQL .NET Data Provider是利用SqlConnection类来连接SQL 7.0或更高版本的数据库，

SqlConnection类位于名称空间System.Data.Sql下。

连接代码：

Dim sqlConnection1 As Sql.SqlConnection

sqlConnection1=New System.Data.Sql.SqlConnection(strConnect)

sqlConnection1.close ‘关闭连接，释放资源

上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL 等种数据

库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy

stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:

1)连接SQL 数据库

Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=名;Initial Catalog=数据库名;User ID=sa;Password=;”

oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)

2)连接Access数据库

Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:Data Example.mdb”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3)连接Oracle数据库

Dim strConnect As Sting=”Provider=Mtry {SDAORA;Data Source=名;User ID=用户ID;Password=密码;”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3、 用The ODBC .NET Data Provider连接数据库

Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。

由于篇幅有限，这里就只介绍连接Sql 和Oracle数据库的方法，其他数据库的连接方法基本类

1)连接Sql 数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={SQL };=名;Uid=sa;pwd=;Database= 数据库名;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};=名;Uid=sa;pwd=;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

四、总结

通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法

。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL .NET Data Provider

的效率；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。