SQL Reader

  Dim cnStr As String =
"Data Source=.;Initial Catalog=Northwind;Integrated Security=true"
      
        Dim cn As New SqlConnection(cnStr)
      
        Dim cmd As New SqlCommand()
        cmd.Connection = cn
        cmd.CommandText = "select * from region"
      
        cn.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
      
        While dr.Read = True
            Dim id As Integer = Convert.ToInt32(dr("regionid"))
            Dim desc As String = dr.GetString(1)
          
            Response.Write(
                String.Format("id: {0} , desc : {1} <br/>", id, desc))
        End While
      
        dr.Close()
        cn.Close()

字串組法

     
        Dim id As String = "8"
        Dim desc As String = "aaabb"

1. cmd.CommandText ="insert into region values(" & id & ",'" & desc & "')"
2. cmd.CommandText =String.Format( "insert into region values({0},'{1}')", id, desc)
3. Parameters

cmd.CommandText = "insert into region values(@id,@desc)"

cmd.Parameters.AddWithValue("@id", id)

cmd.Parameters.AddWithValue("@desc", desc)

       

    

SQL Command

  Dim cnStr As String =
    "Data Source=.;Initial Catalog=Northwind;Integrated Security=true"
       
        Dim cn As New SqlConnection(cnStr)
       
        Dim cmd As New SqlCommand()
        cmd.Connection = cn
        cmd.CommandText = "insert into region values(5,'aaaaa')"
       
        cn.Open()
        cmd.ExecuteNonQuery()
        cn.Close()
       
        Response.Write("OK")

VB .NET SQL連線(2)-使用(Using)

        Dim cnStr As String =
          "Data Source=.;Initial Catalog=Northwind;Integrated Security=true"
      
        Using cn As New SqlConnection(cnStr)
           
            cn.Open()
       
            Response.Write("OK")
           
        End Using
       
      

VB .net SQL連線(1)

 '資料來源伺服器    Data Source
        '資料庫                Initial Catalog
        '是否用Win驗證    Integrated Security= (true/false/SSPI)
        '帳號                  User ID
        '密碼                  Password
        Dim cnStr As String =  "Data Source=.;Initial Catalog=Northwind;Integrated Security=true"
       
        Dim cn As New SqlConnection(cnStr)
       
        cn.Open()
       
        Response.Write("OK")
       
        cn.Close()