vb.net的数据库连接

1·绑定数据源来进行连接

2.用代码连接

先到数据库建立一个数据库和相应的表

连接数据库的代码：

Dim str As String = "Data Source=服务器名Initial Catalog=数据库名Persist Security Info=TrueUser 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=TrueUser 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

序列，站点名，站点连接，显示LOGO

基本上也就这几个，如果有特殊需要可以增加其他的段。

反正就算你现在只用四个段，但将来使用中如果感觉少了还是可以增加的，所以也不必太在意现在使用几个段。

做一个表，里面字段 会员Id,要添加为好友的会员Id，状态（是否对方通过审核）。

例：

如当前会员Id为1，目标会员Id为2

当加对方为好友时。写入:

会员id:1,目标会员Id:2,状态：未审。同时你可以通过站内信功能通知对方。站内信里可以加链接，接受或拒绝。

当对方登录后，点击接受，则再次写入记录，当前会员Id:2,目标会员：1,状态：已审。同时更新前一条记录。的审核状态。

如果是拒绝则删除对方的添加记录。就是前面的那个。同时发站内信通知会员1.

在显示我的好友时，调用出所有审核状态为通过的记录即可。

---