Private Sub GetData()
dim cnn as new sqlconnection("server=localhost;uid=sa;pwd=yourpwd;database=yourdatabase")
Dim cmd As New SqlCommand("select classid,classname,startyear,status,username from class left join [user] on class.userid=[user].userid where class.schoolid=@schoolid and status='未毕业'order by classid desc", cnn)
cmd.Parameters.Add("@schoolid", Session("schoolid"))
Dim adapter As New SqlDataAdapter(cmd)
Dim dst As New DataSet
Try
adapter.Fill(dst)
dgdClass.DataSource = dst.Tables(0).DefaultView
dgdClass.DataBind()
Catch ex As Exception
Response.Write(ex.Message)
Finally
cnn.Close()
End Try
End Sub
dim cnn as new sqlconnection("server=localhost;uid=sa;pwd=yourpwd;database=yourdatabase")
Dim cmd As New SqlCommand("select classid,classname,startyear,status,username from class left join [user] on class.userid=[user].userid where class.schoolid=@schoolid and status='未毕业'order by classid desc", cnn)
cmd.Parameters.Add("@schoolid", Session("schoolid"))
Dim adapter As New SqlDataAdapter(cmd)
Dim dst As New DataSet
Try
adapter.Fill(dst)
dgdClass.DataSource = dst.Tables(0).DefaultView
dgdClass.DataBind()
Catch ex As Exception
Response.Write(ex.Message)
Finally
cnn.Close()
End Try
End Sub
可以用以下格式:string connstring = "server=(local);uid=sa;pwd=pwd;database=northwind;";或者在操作系统中添加NETWORK SERVICE用户