锐客网

  1. 首页 > 睿知 > it技术 > >

vb和net连接数据库 vbnet数据库编程例子

IT技术数据库

vb.net 使用模块连接数据库你说这么一大篇全是业务逻辑，没说明你遇到的技术性问题在哪
.net自带的config文件来配置连接字符串，比ini好N倍 ， 如果你非要用ini那么自己解决问题
检测是否能连接用Connection.Open加try catch就可以
VB.net连接数据库创建新字段并对其进行赋值首先打开数据源，然后使用alter table语句即可，具体范例如下：
Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="数据库路径及文件名""cn.Open constrDim str As Stringstr = "alter table 表名 add 字段 类型"rs.Open str, cn, adOpenStaticmsgbox"添加字段成功",vbokonly
vb.net连接access数据库问题1，使用ADO connection对象
首先，要建立ADO引用，定义connection这个类，然后实例化对象 。
代码完成如下：
span style="font-size:18px;"Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;""Data Source="App.Path"\实例01.mdb"
objCn.Open
/span
2，使用ODBC数据源
首先 ， 打开电脑上的ODBC数据源，建立关系 。
步骤如下：
1），打开电脑上的ODBC数据源
如下图所示：
2）点击添加
3）命名
4）和数据库源建立关系
5）用代码实现连接
span style="font-size:18px;"
dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
/span
3、ADO Data 控件创建连接
1）右击data控件 ， 选择ADODC属性
2）从三种连接资源中选择一种 。
使用data Link 文件：直接点击浏览 ， 找到包含连接字符串的.udl文件即可
使用ODBC数据源连接 ， 单击新建
选择用户数据库，之后的操作跟2中步骤一样 。
使用连接字符串：单击生成
测试连接
4、使用数据环境设计器创建数据库连接
添加引用
右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致
VB.NET怎样连接数据库Imports System.Data
Imports System.Data.SqlClient
Module 连接数据库
Public Server1 As String
Public DataBase1 As String
Public Function GetTable(ByVal sqlstr$) As DataTable
Dim SqlConn As SqlConnection = New SqlConnection("server="Server1";database="DataBase1";integrated security=true")'声明这些SQL的类
Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter
Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)
facDataAdapter.SelectCommand = SqlComm
Dim dt As DataTable = New DataTable
facDataAdapter.Fill(dt)
Return dt
End Function
End Module
vb.net 怎么操作数据库如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！
另外
.NET
Framework中连接数据库要用到ADO.NET 。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类 。
比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：
'首先导入命名空间
Imports
System.Data
Imports
System.Data.OleDb
'然后在某一个事件处理程序中写：
Dim
conn
As
New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=数据库.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
Dim
command
As
New
OleDbCommand("Select
*
From
数据表",
conn)
conn.Open()
'打开数据库连接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
'执行SQL语句，返回OleDbDataReader

推荐阅读


上一篇：拼多多遭遇服务器扔失该如何处理？ 拼多多扔服务器怎么办

下一篇：航天飞行小游戏，航天飞行器游戏