vb.net代码大全 VBNET编程宝典

vb.net (2010) 连接access数据库及操作代码 （读取 写入 创建新表）【解决后再加50分】

由于 没有VS2010，只能简单写几句代码。用ODBC连接数据比较方便，你首先要引用system.data和system.data.odbc

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、雅安服务器托管、营销软件、网站建设、大理州网站维护、网站推广。

dim cn as odbcconnection

cn=new odbcconnection("driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=数据库路径\数据库名.mdb")

dim tsql as string

tsql="select username from [user]"

dim od as odbcdataadapter

dim ds as dataset=new dataset

od=new odbcdataadapter(tsql,cn)

od.fill(ds)

listbox.items.clear

for i=0 to ds.tables(0).rows.count-1

listbox.items.add(ds.tables(0).rows(i),i)

next i

大概是这样的，希望能对你有所帮助。

vb.net 调用数据库某个表中的数据的具体代码

选择客户姓名时

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

'在这里放入取数据库客户ID的代码，现把取得的值给订单号

End Sub

用VB.NET设计一个以秒为基本单位的表，并且显示在窗体上的步骤，并且给出关键代码

是我以前自己设计的用来测试自己点钞速度用的，希望是你需要的

以下是窗体的全部代码

Public Class Form1

Dim StartFlag As Boolean = False

Dim secon As Integer

Dim minut As Integer

'空格

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp

If e.KeyCode = Keys.Space Then

If StartFlag Then

StartFlag = False

Timer1.Enabled = False

If Val(Strings.Right(Label1.Text, 2))  10 And Val(Strings.Right(Label1.Text, 2)) = 0 Then secon = 0 : minut = 0 : Label1.Text = "00:00" : Exit Sub

ListBox1.Items.Add(Label1.Text.ToString)

ListBox1.SelectedItem = ListBox1.Items.Count - 1

Label1.Focus()

Button1.Enabled = True

Label1.Text = "00:00"

secon = 0

minut = 0

Else

StartFlag = True

Timer1.Enabled = True

End If

End If

End Sub

'加载

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.Items.Clear()

Label1.Text = "00:00"

Button1.Enabled = False

secon = 0

minut = 0

Label1.Focus()

End Sub

'清空

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button1.Enabled = False

ListBox1.Items.Clear()

Label1.Focus()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

secon += 1

If secon = 60 Then

secon = 0

minut += 1

End If

Dim seconStr As String = secon

If seconStr.Length = 1 Then seconStr = "0" + seconStr

Dim minutStr As String = minut

If minutStr.Length = 1 Then minutStr = "0" + minutStr

Label1.Text = minutStr + ":" + seconStr

Label1.Focus()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SeconSun As Integer

If ListBox1.Items.Count  0 Then

For i = 0 To ListBox1.Items.Count - 1

Dim TemStr As String = ListBox1.Items.Item(i).ToString

Dim TemInt1 As Integer = Val(Strings.Right(TemStr, 2))

Dim TemInt2 As Integer = Val(Strings.Left(TemStr, 2))

Debug.Print(TemInt1.ToString)

Debug.Print(TemInt2.ToString)

SeconSun += TemInt1 + TemInt2 * 60

Debug.Print(SeconSun.ToString)

Next

TextBox1.Text = (SeconSun / ListBox1.Items.Count).ToString + "秒"

End If

Label1.Focus()

End Sub

End Class

用vb.net 怎样建立一个mdb数据库及一张表

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建空的access数据库文件--数据库文件.mdb，密码为123

Dim Mycat As Catalog = New Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

'以下代码创建一个名为“实验数据表”

Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

MyTable.Name = "实验数据表"    '表命名

'给表“实验数据表” 创建一个字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

'给表“实验数据表” 创建一个整数字段，字段名“学号”

MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”        

MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

MyTable = Nothing

Mycat = Nothing

End Sub

End Class