大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
用SQL数据库。VB.NET是微软公司在2002年推出的一种开发基于.Net平台应用程序的开发语言,vb.net在单击回车键时将数据写入数据库需要用SQL数据库。
你每次取出的是表中的首条记录,当然只能用首条记录登陆了!
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失败")
End If
dr.Close()
conn.Close()
这种情况下,效率极不好!你能理解什么意思就行了!否则将你的程序改完了!
遍历的例子:
Dim i, j As Integer
For i = 0 To DataGridView1.RowCount - 1
For j = 0 To DataGridView1.ColumnCount - 1
MsgBox(DataGridView1.Item(j, i).Value)
Next
Next
注意:与Excel的单元格命名规则不一样,这里的 Item(j, i) 中,列号 j 在前,行号 i 在后。
foreach (ListViewItem item in listView1.Items) {
Debug.Print(item.Text);
}