Question

任何人都可以通过ADO.Net向我提供在VB2010 express中添加数据库连接的源代码。包括添加，更新，删除，检索和修改数据库字段的所有命令。如果有人能为我提供一个包含源代码的小型原型工作模型，那将非常有用。

Answer 1

ADO.NET或多或少基于SQL查询。因此，对于CRUD（创建，读取，更新，删除），操作会查看SQL-Language（查询语法可能会有一些较小的差异，具体取决于您使用的数据库）。

该连接使用实现IDbConnection命名空间中的IDbCommand，IDbDataAdapter，IDbDataParameter，IDbTransaction和System.Data接口的专用提供程序实体

有不同的数据库提供程序（例如Microsoft SQL Server，Oracle，mySQl，OleDb，ODBC等）。其中一些本身由.NET Framework支持（MSSQL = System.Data.SqlClient命名空间，OleDb = System.Data.OleDb，ODBC = System.Data.Odbc命名空间），而其他一些必须通过外部库添加（您也可以如果你愿意，可以编写自己的数据库提供程序。

使用IDBCommand对象（例如System.Data.SqlClient.SqlCommand对象），您可以定义SQL命令。

以下是一个可能有用的小样本摘要：

Public Class Form1

   Sub DBTest()

      '** Values to store the database values in
      Dim col1 As String = "", col2 As String = ""

      '** Open a connection (change the connectionstring to an appropriate value 
      '** for your database or load it from a config file)
      Using conn As New SqlClient.SqlConnection("YourConnectionString")
         '** Open the connection
         conn.Open()
         '** Create a Command object
         Using cmd As SqlClient.SqlCommand = conn.CreateCommand()
            '** Set the command text (=> SQL Query)
            cmd.CommandText = "SELECT ID, Col1, Col2 FROM YourTable WHERE ID = @ID"
            '** Add parameters
            cmd.Parameters.Add("@ID", SqlDbType.Int).Value = 100 '** Change to variable
            '** Execute the value and get the reader object, since we are trying to
            '** get a result from the query, for INSERT, UPDATE, DELETE use 
            '** "ExecuteNonQuery" method which returns an Integer
            Using reader As SqlClient.SqlDataReader = cmd.ExecuteReader()
               '** Check if the result has returned som results and read the first record
               '** If you have multiple records execute the Read() method until it returns false 
               If reader.HasRows AndAlso reader.Read() Then
                  '** Read the values of the current columns
                  col1 = reader("col1")
                  col2 = reader("col2")
               End If
            End Using
         End Using

         Debug.Print("Col1={0},Col2={1}", col1, col2)
         '** Close the connection
         conn.Close()
      End Using
   End Sub
End Class

通过VB2010中的ADO.Net表达数据库连接

1 个答案: