首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

VB与SQL数据库连接有关问题

2012-02-27 
VB与SQL数据库连接问题我们的年终作业是做一个仓库系统,要与数据库连接.可是我们学了这么长时间编程书上讲

VB与SQL数据库连接问题
我们的年终作业是做一个仓库系统,要与数据库连接.可是我们学了这么长时间编程书上讲的连接方法听起来好象都好抽象啊.又研究了几本书才实现了与数据库的连接.
可是添加数据的时候,insert代码要在哪里写?哪个控件下面呢?sqlcommand还是sqldataaqter或者说是其他的?
请高手指教哦,我是小菜鸟!

[解决办法]
拿ms sql数据库为例
Dim conn As New Data.SqlClient.SqlConnection
Dim str As String = ""
str = 你的连接字符串
Dim cmd As Data.IDbCommand = conn.CreateCommand()

conn.Open()
cmd.CommandText = 你的SQL语句(select/insert/update/delete等等)
cmd.ExecuteNonQuery()
conn.Close()
[解决办法]
dim cnn as new sqlclient.sqlconnection
dim cmd as new sqlclient.sqlcommand
dim reader as sqlclient.sqldatareader
dim table as new datatable



if cnn.state=stateclose then
cnn.connectionstring="server=;database=;uid=;pwd="
cnn.open
endif

cmd.connection=cnn
cmd.commandtype=commandtext
cmd.commandtext="select * from TableName"

reader=cmd.executereader



For i As Int16 = 0 To reader.FieldCount - 1
Dim clm As New DataColumn
clm.ColumnName = reader.GetName(i)
clm.DataType = reader.GetFieldType(i)
table.Columns.Add(clm)

Next

While reader.Read
Dim row As DataRow
row = table.NewRow

For i As Int16 = 0 To reader.FieldCount - 1
row(i) = reader(i)
Next
table.Rows.Add(row)
End While




热点排行