A. vb.net向資料庫添加數據（在線等待）
第一個問題，存儲數據：使用sqlCommand（如果是Sql的）：Using cmd As New SqlCommand()�0�2 �0�2cmd.Connection = new SqlConnection("server=.;database=資料庫名;integrated security=sspi")�0�2 �0�2cmd.Connection.Open()�0�2 �0�2cmd.CommandText=string.Format("Insert into 表名字 Values('{0}','{1}'",您的第一個字元串變數，第二個字元串變數【如果是數值類型的，不要在索引前加單引號了】)�0�2 cmd.NonExecuteQuery();'獲取數據SqlDataAdapter adapter = new SqlDataAdapter(cmd);cmd.CommandText="select * from 表"DataTable dt = new DataTable()adapter.Fill(dt)DataGridView.DataSource = dtEnd Using
B. vb.net資料庫查詢
select * from 表 where
(case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end) BETWEEN 2 and 5
C. vb.net 怎麼操作資料庫
Private stroledbprovider As String = "System.Data.OleDb" '大小寫 -------更改此處可連接不同類型的資料庫
'連接資料庫的信息，更改連接不同資料庫信息-------"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=datapath;Persist Security Info=false"
Private stroledbconn As String = "Provider=SQLOLEDB;Data Source=localhost,10000;Initial Catalog=haofefe;user id=sa ; password=123" 'Integrated Security=SSPI"
'*********************************************************************
'************生成Dbproviderfactory,idbconnection,idbcommand,and idatareader********
Dim cnfactory As IDbConnection
Dim drcustsreader As IDataReader
Dim cmfactory As IDbCommand
Dim dpfactory As DbProviderFactory
Public login As Boolean = False
Private Sub createconn()
Try
dpfactory = System.Data.Common.DbProviderFactories.GetFactory(stroledbprovider)
cnfactory = dpfactory.CreateConnection
cnfactory.ConnectionString = stroledbconn
cmfactory = cnfactory.CreateCommand
cmfactory.CommandType = CommandType.Text
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
'*********************************************************
'利用生成的連接
'****************查詢數據**************
Public Function getsources(ByVal strcomm As String) As DataTable
Dim i As Integer
Try
Call createconn() '調用生成實例
cmfactory.CommandText = strcomm
getsources = New DataTable
cnfactory.Open()
drcustsreader = cmfactory.ExecuteReader(CommandBehavior.KeyInfo)
With drcustsreader
For i = 0 To .FieldCount - 1
getsources.Columns.Add(.GetName(i))
Next
While .Read
Dim objcells(.FieldCount - 1) As Object
.GetValues(objcells)
getsources.Rows.Add(objcells)
End While
End With
drcustsreader.Close()
'getsources.Load(drcustsreader)
Return getsources
cnfactory.Close()
Catch ex As Exception
cnfactory.Close()
Return New Data.DataTable
MsgBox(ex.ToString)
End Try
End Function
'**********************************
'-------------------------------------------------------------------------------------------------------------
'*******************查看已連接信息******************
Public Sub connectionstatistics(ByVal conn As SqlConnection)
Dim htstats As Hashtable
Try
htstats = CType(conn.RetrieveStatistics, Hashtable)
Dim strstats As String
strstats = "ServerVersion: " + conn.ServerVersion.ToString + ControlChars.CrLf
Dim ostat As Object
Dim strstat As String
For Each ostat In htstats.Keys
strstat = ostat.ToString
If InStr(strstat, "Time") > 0 Then
strstats = strstats + strstat + "=" + Microsoft.VisualBasic.Format(CLng(htstats(strstat)) / 1000, "#,##0.000") + " secs" + vbCrLf
Else
strstats = strstats + strstat + "=" + htstats(strstat).ToString + ControlChars.Cr + ControlChars.Lf
End If
Next
MsgBox(strstats, MsgBoxStyle.Information, "Connection Statistics")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
D. vb.net與資料庫連接的例子
/*第一步：創建命令對象(SqlCommand)*/
//由SqlConnection類創建連接對象connection
SqlConnection connection=new SqlConnection();
//定義連接串(ConnectionString)屬性
connection.ConnectionString=@"Data Source=ANDREW\SQLEXPRESS;Initial Catalog=StuMan;Integrated Security=True;User ID=scott;Password=tiger;";
//由SqlCommand類創建命令對象cmd
SqlCommand cmd=new SqlCommand("SELECT * FROM Student",connection);
/*第二步：打開連接對象*/
//調用連接對象的Open方法打開連接對象
connection.Open();
/*第三步：執行SQL語句*/
//由SqlDataReader類生成數據讀取器對象myReader,
//調用命令對象cmd的ExecuteReader方法，
//將執行結果(獲取的數據)賦給數據讀取器對象myReader
SqlDataReader myReader=cmd.ExecuteReader();
/*第四步：對數據進行處理*/
//調用數據讀取器myReader的Read方法讀取一行數據
myReader.Read();
/*第五步：關閉連接對象*/
//調用連接對象connection的Close方法關閉連接，
//釋放佔用的資料庫資源。
connection.Close();
//Data Source指的是資料庫伺服器的名稱，Initial Catalog資料庫名稱，Integrated Security可信連接，User ID用戶名，Password密碼，如果沒有用戶名密碼，則後面兩個可以省略；
E. VB.NET連接各種資料庫的語句
1、 用The SQL Server .NET Data Provider連接資料庫
The SQL Server .NET Data Provider是利用SqlConnection類來連接SQL Server7.0或更高版本的資料庫，
SqlConnection類位於名稱空間System.Data.SqlClient下。
連接代碼：
Dim sqlConnection1 As SqlClient.SqlConnection
Dim strConnect As String=」data source=伺服器名;initial catalog=資料庫名;user id=sa;password=;」
sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open 『打開資料庫
sqlConnection1.close 『關閉連接，釋放資源
2、 用The OLE DB .NET Data Provider連接資料庫
上面已經說過，利用The OLE DB .NET Data Provider可以訪問Access、Oracle和SQL Server等種數據
庫，那麼，它是怎樣訪問這些資料庫的呢？The OLE DB .NET Data Provider是通過位於名稱空間Sy
stem.Data.OleDb類庫下的OleDbConnection類來連接這三種不同類型的資料庫的。下面舉例說明:
1)連接SQL Server資料庫
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=SQLOLEDB;Persist Security Info=False;Data Source=伺服器名;Initial Catalog=資料庫名;User ID=sa;Password=;」
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)連接Access資料庫
假設要連接的Access資料庫名為「Example.mdb」，存放在d:\Data\目錄下。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb」
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3)連接Oracle資料庫
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=MSDAORA;Data Source=伺服器名;User ID=用戶ID;Password=密碼;」
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、 用The ODBC .NET Data Provider連接資料庫
The ODBC .NET Data Provider連接資料庫是通過OdbcConnection類來實現的，這個類位於名稱空間
Microsoft.Data.Odbc下，而名稱空間Microsoft.Data.Odbc是封裝在Microsoft.Data.Odbc.dll文件下的。
由於篇幅有限，這里就只介紹連接Sql Server和Oracle資料庫的方法，其他資料庫的連接方法基本類
似，我就不再多講了。
1)連接Sql Server資料庫
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=」Driver={SQL Server};Server=伺服器名;Uid=sa;pwd=;Database= 資料庫名;」
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
2)連接Oracle資料庫
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=」Driver={Microsoft ODBC for Oracle};Server=伺服器名;Uid=sa;pwd=;」
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
四、總結
通過本文的介紹，讀者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET連接各種資料庫的方法
。以上三種驅動針對不同的資料庫，它們的性能方面也有很大的不同：The SQL Server .NET Data Provider
的效率最高；The OLE DB .NET Data Provider的效率比較底；The ODBC .NET Data Provider的效率最慢。
具體連接哪一種資料庫選用哪一種數據驅動要從工作效率方面來考慮。
F. vb.net 連接資料庫
Dim icount As Integer
Dim sqlconn = "Data Source=192.168.0.197;Initial Catalog=資料庫名;User ID=sa;PWD=sa"
Dim Connection = New SqlConnection(sqlconn)
Dim mysql As String = "select * from 表1 where " & " 用戶名='" & TextBox1.Text & " ' " & " and 密碼＝'" & TextBox2.Text
Dim SqlCommand = New SqlCommand(mysql, Connection)
Connection.Open()
Dim reader As SqlDataReader = SqlCommand.ExecuteReader()
While reader.Read()
icount = reader.GetValue(0)
End While
Connection.Close()
G. vb.net 寫資料庫
你這是向sql後台資料庫寫數據嗎?
sqldataadapter1.update 改須指定有效的updatecommand,我一直沒有看到
給你個例子你看吧:
'首先指定有效的UpdateCommand
sqlstr = "insert into Playlist(PlayName,PlayPath)values('" & TextBox4.Text.Trim & "','" & TextBox5.Text.Trim & "')"
Mole1.Mycommand.CommandText = sqlstr
'增加新一行(此行必須,要不不能與後台同步,並且後面調用update會出錯)
Mole1.MyDataSet.Tables("Music").Rows.Add()
Mole1.MyDataAdaPter.InsertCommand = Mole1.Mycommand
Mole1.MyDataAdaPter.Update(Mole1.MyDataSet, "Music")
MsgBox("增加數據成功！！")
H. vb.net 中如何使用SQL語句查詢資料庫中的數據
1、首先打開Visual Studio 2008代碼窗口，添加引用。
I. vb.net連接sql資料庫
先說你的連接字元串，User ID=sa這個應該是需要指定的，Password=沒有可以寫為空。
是因為你代碼沒有傳全嗎？並沒有並沒有地方調用連接以及查詢資料庫。
J. 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