亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

VB.NET數據庫怎么用

發布時間:2021-12-02 14:03:59 來源:億速云 閱讀:119 作者:小新 欄目:編程語言

這篇文章主要為大家展示了“VB.NET數據庫怎么用”,內容簡而易懂,條理清晰,希望能夠幫助大家解決疑惑,下面讓小編帶領大家一起研究并學習一下“VB.NET數據庫怎么用”這篇文章吧。

VB.NET數據庫代碼示例:

  1. Imports System  

  2. Imports System.Data  

  3. Imports System.Data.SqlClient  

  4. public Class MainClassclass MainClass  

  5. Shared Sub Main()Sub Main()  

  6. Dim thisConnection As New SqlConnection
    ("server=(local)\SQLEXPRESS;" & _  

  7. "integrated security=sspi;database=
    MyDatabase")  

  8. ' Sql Query   

  9. Dim sql As String = "SELECT * 
    FROM Employee "
     

  10. Dim insertSql As String = "INSERT
     INTO Employee "
     & _  

  11. "(ID, FirstName, LastName)VALUES" & _  

  12. "(@ID, @FirstName, @LastName)"  

  13. Try  

  14. ' Create Data Adapter  

  15. Dim da As New SqlDataAdapter  

  16. da.SelectCommand = New SqlCommand
    (sql, thisConnection)  

  17. ' Create and fill Dataset  

  18. Dim ds As New DataSet  

  19. da.Fill(ds, "Employee")  

  20. ' Get the Data Table  

  21. Dim dt As DataTable = ds.Tables
    ("Employee")  

  22. ' Display Rows Before Changed  

  23. Console.WriteLine("Before altering 
    the dataset")  

  24. For Each row As DataRow In dt.Rows  

  25. Console.WriteLine("{0} | {1} | {2}", _  

  26. row("ID").ToString().PadRight(10), _  

  27. row("FirstName").ToString().PadRight(10), _  

  28. row("LastName"))  

  29. Next  

  30. ' Add A Row  

  31. Dim newRow As DataRow = dt.NewRow()  

  32. newRow("FirstName") = "Edna"  

  33. newRow("LastName") = "Everage"  

  34. newRow("ID") = "2"  

  35. dt.Rows.Add(newRow)  

  36. ' Display Rows After Alteration  

  37. Console.WriteLine("=========")  

  38. Console.WriteLine("After 
    altering the dataset")  

  39. For Each row As DataRow In dt.Rows  

  40. Console.WriteLine("{0} | {1} | {2}", _  

  41. row("ID").ToString().PadRight(10), _  

  42. row("FirstName").ToString().PadRight(10), _  

  43. row("LastName"))  

  44. Next  

  45. ' Insert employees  

  46. ' 1. Create command  

  47. Dim insertCmd As New SqlCommand
    (insertSql, thisConnection)  

  48. ' 2. Map parameters  

  49. insertCmd.Parameters.Add("@FirstName", _  

  50. SqlDbType.NVarChar, 10, "FirstName")  

  51. insertCmd.Parameters.Add("@LastName", _  

  52. SqlDbType.NVarChar, 20, "LastName")  

  53. insertCmd.Parameters.Add("@ID", _  

  54. SqlDbType.Int, 15, "ID")  

  55. ' 3. Insert employees  

  56. da.InsertCommand = insertCmd 

  57. da.Update(ds, "Employee")  

  58. Catch ex As SqlException  

  59. ' Display error  

  60. Console.WriteLine("Error: " 
    & ex.ToString())  

  61. Finally  

  62. ' Close Connection  

  63. thisConnection.Close()  

  64. Console.WriteLine("Connection 
    Closed")  

  65. End Try  

  66. End Sub  

  67. End Class 

以上是“VB.NET數據庫怎么用”這篇文章的所有內容,感謝各位的閱讀!相信大家都有了一定的了解,希望分享的內容對大家有所幫助,如果還想學習更多知識,歡迎關注億速云行業資訊頻道!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

甘洛县| 宝鸡市| 辉县市| 将乐县| 永寿县| 城步| 洛隆县| 万源市| 武定县| 佛冈县| 会同县| 应用必备| 施秉县| 永州市| 佳木斯市| 汝城县| 旌德县| 宝兴县| 铜陵市| 聂拉木县| 婺源县| 江北区| 安新县| 滨州市| 兖州市| 古蔺县| 盐边县| 澄城县| 崇信县| 楚雄市| 英吉沙县| 丹凤县| 通山县| 五家渠市| 恭城| 梁河县| 远安县| 湛江市| 吕梁市| 扶风县| 锡林郭勒盟|