vbnetsql資料庫

A. vb.net 連接SQL資料庫登錄代碼

問題應該出在你的查詢語句的結果沒有值,你用你的查詢語句到SQL中是否有返回值?記得加上你的條件,另外,你語句里這一句是多餘的.Dim s As Object = sComm.ExecuteScalar 以下語句測試正常 Dim myCn As New SqlClient.SqlConnection Try myCn.ConnectionString = sConnString myCn.Open() Dim mySQL As String = "SELECT * FROM ygzl" Dim sComm As New SqlClient.SqlCommand(mySQL, myCn) If sComm.ExecuteScalar Then Dim User_MainForm As New Form1 User_MainForm.Show() Else MsgBox("用戶名或密碼不正確，請重試！") End If Catch ex As Exception MsgBox(ex.Message) Finally myCn.Close() '關閉連接 End Try

B. 基於VB.Net+sql資料庫的學生信息管理系統，怎麼連接資料庫實現登錄啊

1：Access，建立資料庫，資料庫命名為Database1.mdb。
（注意：這里的後綴是MDB,如果Access是2007版本的，保存的時候要另存為2003版本的才行，因為，VB不直接支持07版的accdb後綴格式！）
2：資料庫建立後就進入了數據表界面，可以輸入數據了，輸完以後CRRL+S保存，輸入表名，這里表名為test，ok，准備工作搞定。

菜單中找到工程→部件→勾選 ，
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾選後左側工具欄里就多了兩個控制項即 ADODC控制項和MSHFlexGrid控制項。
選擇 ADODC控制項和MSHFlexGrid控制項，放在窗體的合適位置
設置ADODC控制項的屬性：
右鍵窗體內ADODC1控制項
1：ADODC屬性頁→通用→選擇使用連接字元串→點擊生成→選擇Microsoft Jet 4.0 OLE DB Provider 點擊下一步→選擇之前准備好的資料庫→點擊測試連接，顯示測試成功則ok，確定。
2：ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable，表或存儲過程名稱選擇之前建立的數據表test，點擊確定，ADODC屬性設置完成。
設置MSHFlexGrid控制項的屬性：
VB右側屬性表裡，找到datasource，選擇adodc1
就完事了

C. vb.net 連接sql資料庫模塊,如何使用

比如有個asp.net(vb.net)連接sql server 2000資料庫的連接模塊(mole)：

Mole MdlCommon
Public txtSQL As String '存放語句
Public DBSet As DataSet '查詢得到的記錄集
Public ErrorMsg As String '存放錯誤信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn As SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
Dim rst As New DataSet()
Dim SplitSQL() As String
errMsg = ""
Try
SplitSQL = Split(strSQL)
cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Else
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = rst
End If
Catch ex As Exception
errMsg = ex.Message
Finally
rst = Nothing
cnn = Nothing
End Try
End Function End Mole

調用時在asp.net後台寫上txtSQL="SELECT * FROM user";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查詢db返回結果了。

D. VB.NET對SQL資料庫怎樣連接啊求代碼

VB.NET中有控制項可以真接接點擊屬性進行連接配置.
SqlConnect數據連接控制項.點擊ConnectionString屬性進回行配置就可以了.
VB.NET中沒有答RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection對像來連接資料庫再用SqlDataAdapter對像來讀取數據並填充到DataSet里.然後就可以進行數據綁定了.
例:
dim conn as SqlConnection
dim da as SqlDataAdapter
dim ds as Dataset
set conn = new SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da = new SqlDataAdapter (<sql>,conn)
da.fill(ds)

E. vb.net 連接sql資料庫

Imports System.Data
Imports System.Data.OleDb
Mole Mole1
Public Function MdbMytab(ByVal str_select As String) As DataTable
Dim conn_mdb As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mdb.mdb")
Dim cmd As New OleDbCommand(str_select, conn_mdb)
Dim da As New OleDbDataAdapter(cmd)
Dim mytb As DataSet = New DataSet
da.Fill(mytb, 0)
MdbMytab = mytb.Tables(0)
conn_mdb.Close()
End Function
End Mole
以上為模塊代碼

以下為窗體代碼：
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mytb As DataTable = MdbMytab("select * from 表1")
DataGridView1.DataSource = mytb
ComboBox1.DisplayMember = "姓名"
ComboBox1.DataSource = mytb
End Sub
End Class