?? module1.vb
字號:
Imports System.Data
Imports System.DBNull
Imports System.Data.SqlClient
Module Module1
Public UserName As String
Public pepdom As Integer
Public mod1 As Boolean
Public mod2 As Boolean
Public mod3 As Boolean
Public mod4 As Boolean
'定義四個模塊
Public objDataSet As DataSet
'定義一個數據集對象
Public objDataView As DataView
'定義一個數據視圖對象
Public objDataAdpter As SqlDataAdapter
'定義一個數據適配器對象
Public objSqlConnection As SqlConnection = New _
SqlConnection("data source=219.228.236.42;initial catalog=FoodSvc;user id=sa;password=sql")
'定義一個數據連接對象,并初始化
Public objCurrencyMannager As CurrencyManager
'定義一個當前的綁定管理對象
Public UserSqlstr As String = "SELECT * FROM UserInfo"
'定義了查詢語句
Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
objDataSet = New DataSet()
objDataSet.Clear()
'實例化一個數據集對象
Try
objSqlConnection.Open()
'打開數據庫連接
objDataAdpter = New SqlDataAdapter(sqlstr, objSqlConnection)
'將數據庫的數據映射到數據適配器
objDataAdpter.Fill(objDataSet)
'填充數據集的數據
objSqlConnection.Close()
'關閉數據連接,這一點很重要
Catch
MsgBox("錯誤號:" & Err.Number & "錯誤描述:" & Err.Description)
End Try
Return objDataSet
objDataSet = Nothing
End Function
Public Function UpdateData(ByVal sqlstr As String) As Boolean
Dim objCommand As SqlCommand = New SqlCommand()
Try
objSqlConnection.Open()
objCommand.Connection = objSqlConnection
objCommand.CommandText = sqlstr
objCommand.CommandType = CommandType.Text
objCommand.ExecuteNonQuery()
objSqlConnection.Close()
Catch
MsgBox("錯誤號:" & Err.Number & "錯誤描述:" & Err.Description)
Return False
End Try
Return True
End Function
End Module
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -