0

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

4

1 回答 1

0

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

该连接使用专门的提供者实体来实现命名空间中的IDbConnection、IDbCommand、和接口。IDbDataAdapterIDbDataParameterIDbTransactionSystem.Data

有不同的数据库提供程序（例如 Microsoft SQL Server、Oracle、mySQl、OleDb、ODBC 等）。其中一些是 .NET Framework 原生支持的（MSSQL= System.Data.SqlClientNamespace, OleDb= System.Data.OleDb, ODBC= System.Data.OdbcNamespace），而另一些则必须通过外部库添加（如果您愿意，也可以编写自己的数据库提供程序）。

使用 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
于 2012-06-13T09:52:07.180 回答