大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Public sqlcon As System.Data.SqlClient.SqlConnection
成都创新互联主营铜鼓网站建设的网络公司,主营网站建设方案,成都app软件开发公司,铜鼓h5微信小程序定制开发搭建,铜鼓网站营销推广欢迎铜鼓等地区企业咨询
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable
sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="数据库sa用户"; Password="数据库密码""
ds = New System.Data.DataSet
dr = New System.Data.DataTable(" test2 ")
ds.Tables.Add(dr)
sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()
界面上控件
DataGridView1.DataSource = dr
不知道你需要连的是哪个数据库,我以sqlserver数据库为例子
1、sqlconnection类位于名称空间system.data.sqlclient,所以先using
system.data.sqlclient
2、dim
sqlconnection1
as
sqlclient.sqlconnection
dim
strconnect
as
string=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”
sqlconnection1=new
system.data.sqlclient.sqlconnection(strconnect)
sqlconnection1.open
‘打开数据库
sqlconnection1.close
‘关闭连接,释放资源
以上是通用的连库代码。其实你2个问题,只需要改一个地方。
第一个问题
dim
strconnect
as
string=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”把这里的data
source=服务器名;改成data
source=.或者data
source=localhost
这是本地服务器,也可以用服务器名
第二个问题,同样也是改data
source=服务器名;改为data
source=192.168.1.1
同理,initial
catalog=数据库名根据是实际的改,第一个问题改成initial
catalog=publs
第二个问题改成initial
catalog=hero
VB.NET中有控件可以真接接点击属性进行连接配置.
SqlConnect数据连接控件.点击ConnectionString属性进行配置就可以了.
VB.NET中没有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.然后就可以进行数据绑定了.
例:
dim
conn
as
SqlConnection
dim
da
as
SqlDataAdapter
dim
ds
as
Dataset
set
conn
=
new
SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da
=
new
SqlDataAdapter
(,conn)
da.fill(ds)
ADO.net +SQLSever(比如说你的服务器是:MYSQLSERVER,你要连的数据库是pubs)
首先引入命名空间(在public class ..之上)
imports system.data.sqlclient
⑴信任连接(不用使用用户名,密码)
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;integrated security=true;")
mycon.open()
....
mycon.close()
⑵采用用户名和密码连接(假如你的数据库登陆用户名为sa,密码为:dorient):
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;uid=sa;pwd=dorient;")
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
'数据库连接对象
'错误的写法
'Dim objConnection As SqlConnection = New SqlConnection("server=(local);database=pubs;user id=sa;password=")
'正确写法
Dim objConnection As New SqlConnection("Data Source=127.0.0.1; Initial Catalog=pubs; user id=sa; password=;")
'数据适配器
Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter()
'DataSet
Dim objDataSet As DataSet = New DataSet()
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'设置查询命令属性
objDataAdapter.SelectCommand = New SqlCommand
objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "select au_lname,au_fname,title,price from authors join titleauthor on authors.au_id=titleauthor.au_id join titles on titleauthor.title_id=titles.title_id order by au_lname,au_fname"
objDataAdapter.SelectCommand.CommandType = CommandType.Text
'打开数据库连接
objConnection.Open()
'填充DataSet对象
objDataAdapter.Fill(objDataSet, "authors")
'关闭数据库连接
objConnection.Close()
'给DataGrid绑定数据
grdAuthorTitles.DataSource = objDataSet
grdAuthorTitles.DataMember = "authors"
'清除
objDataAdapter = Nothing
objConnection = Nothing
End Sub
End Class