VB2005中DataGridView为什么显示不了？
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim cnn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset
cnn = New ADODB.Connection
cnn.ConnectionString = "driver=SQL Server;server=;uid=sa;pwd=;database=oa_cs "
cnn.Open()
Cmd = New ADODB.Command
Cmd.let_ActiveConnection(cnn)
Cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
Cmd.CommandText = "user_list1 "
Cmd.Parameters(1).Value = "aa "
rs = Cmd.Execute
DataGridView1.DataSource = rs
End Sub
[解决办法]
用DataSet
Dim Cn As New SqlConnection
Dim CnStr As String = " "
CnStr = "Server=.;database=test;uid=test;pwd=test "
CnStr = "Server=192.168.1.31;database=master;uid=sa;pwd=yl888 "
Cn.ConnectionString = CnStr
Cn.Open()
MessageBox.Show( "OK ")
Dim Sql0 As String = "Select * from ry2005 "
Dim DA As New SqlDataAdapter
Dim Cmd As SqlCommand = Cn.CreateCommand
Cmd.CommandText = Sql0
DA.SelectCommand = Cmd
DA.Fill(Ds, "p ")
DataGridView1.DataSource = Ds.Tables( "p ")
