vb.net帐票的简单介绍

vb.net的数据库连接

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

相关问答

Q1: vb.net如何在单击回车键时将数据写入数据库?

用SQL数据库。VB.NET是微软公司在2002年推出的一种开发基于.Net平台应用程序的开发语言，vb.net在单击回车键时将数据写入数据库需要用SQL数据库。

Q2: vb.net 登录问题

你每次取出的是表中的首条记录，当然只能用首条记录登陆了！

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()

这种情况下，效率极不好！你能理解什么意思就行了！否则将你的程序改完了！

Q3: VB.NET 遍历 DataGridView

遍历的例子：

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 在后。

Q4: C# 或者 vb.net 打印listview里的内容（小票打印机）

foreach (ListViewItem item in listView1.Items) {

Debug.Print(item.Text);

}