请问大神这是什么访问数据库的技术?是ADO.NET吗?
Imports System.Data.SqlClientPublic Class MainConfig
Public Shared Function GetConnection() As String
Return "Data Source=GZW-PC;Initial Catalog=SBManager;Persist Security Info=True;User ID=sa;Password=6221556"
End Function
Public Shared Function Excute(ByVal sql As String) As String
Dim constr As String = MainConfig.GetConnection()
Dim con As SqlConnection
con = New SqlConnection(constr)
con.Open()
Dim com As SqlCommand
com = New SqlCommand(sql, con)
com.ExecuteNonQuery()
Return ""
End Function
Public Shared Function ExcuteLong(ByVal sql As String) As Integer
Dim constr As String = MainConfig.GetConnection()
Dim con As SqlConnection
con = New SqlConnection(constr)
con.Open()
Dim com As SqlCommand
com = New SqlCommand(sql, con)
Dim objcomm As New SqlClient.SqlCommand(sql, con)
Dim objreader As SqlDataReader = objcomm.ExecuteReader()
If (objreader.Read()) Then
Return 1
End If
Return 0
End Function
Public Shared Function GetRecord(ByVal sql As String) As DataSet
Dim ds As DataSet = New DataSet()
Dim constr As String = MainConfig.GetConnection()
Dim da As SqlDataAdapter = New SqlDataAdapter(sql, constr)
da.Fill(ds)
Return ds
End Function
End Class --------------------编程问答-------------------- 是ado.net --------------------编程问答-------------------- 頂 樓上正解! --------------------编程问答-------------------- ado.net,主要是几个数据控件的应用,sqlConnection,sqlcommand,sqlDataAdapter
补充:.NET技术 , VB.NET