vb.net绑定数据源 vb60连接数据库

vb.net的数据库连接【vb.net绑定数据源 vb60连接数据库】1·绑定数据源来进行连接
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码:
Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码:Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
sqlstr = "Select * From Amd Where AmdName='"TextBox1.Text"' And AmdPwd = '"TextBox2.Text"'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then'判断一条记录为真
kf.Show() '显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show("输入信息有误!", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If
vb.net中treeview的数据绑定第一步:定义两个DataTable对象,并把数据库中的两个表分别读入这两个DataTable对象中;如Dt1用于存储省名表,Dt2用于存储省辖市名表 。
第二步:先绑定Dt1,以循环方式向TreeView添加Node 。其中,Node.index就是Dt1中id字段的值,Node.Text就是Dt1中name字段的值 。
第三步:绑定Dt2 , 同样以循环方式向TreeView添加Node 。这里稍微有点复杂,需先判断下已经存在于TreeView中的节点 , 如果节点的索引是3,则向这个节点下添加id为3xx的子节点 。
获得当前节点的索引值的语句是:dim s as Integer = TreeView1.Nodes(i).Nodes.IndexOf(Node)
为当前节点添加子节点的语句是:TreeView1.Nodes(i).Nodes(s).Nodes.Add(Node)
最后的效果是:TreeView中有北京、上海、山东等节点,点击"山东"则会展开其下面的"济南"、"青岛"、"烟台"等子节点 。
VB.NET中怎麼用代码实现DataGridview的数据绑定?一般来说:连接数据库这一块都做成DLL,这样方便
在配置文件app.config中加入
//m_SqlPath
存放SQL语句的XML文件
Dim
sqlHelper
As
New
SQLHelper("LotDBConnection")
Dim
sqlRead
As
New
ResourceHelper
Dim
ht
As
New
Hashtable
Dim
strSQL
As
String
Try
'设置SQL文参数
ht.Clear()
ht.Add(ColumnName.USER_ID.ToString,
Trim(Me.txtUserID.Text))
ht.Add(ColumnName.USER_NAME.ToString,
Trim(Me.txtUserName.Text))
'数据查询
strSQL
=
sqlRead.GetSQLSentence("GetUserList",
m_SqlPath,
ht)
ds
=
sqlHelper.ExecuteDataSet(strSQL)
If
ds.Tables(0).Rows.Count
=
Then
MessageBox
.Show
("数据不存在");
Else
'数据绑定
dgvUserMeisai.DataSource
=
ds.Tables(0)
End
If
Catch
ex
As
Exception
MessageBox
.Show
(ex.Message
);
Finally
sqlHelper
=
Nothing
sqlRead
=
Nothing
ht
=
Nothing
End
Try
vb.net 绑定数据源后,给数据库文件设置了密码,怎么修改程序?constr= "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\aaa.mdb;Uid=admin;Pwd=**********;"
'其中 **********就是你数据库的密码
vb.net 如何做到一个子窗体绑定一个数据库加个模块 , 定义公共变量2个窗体都可以对数据库进行读写,每次读写之前先刷新一次,保证数据最新就行了 。

推荐阅读