在VB

我要显示在DataGridView的数据库中的数据显示数据的GridView ...这是我的代码...它没有工作...谁能帮我笏做......在VB

Dim DBCONSRT, QRYSTR As String 
    Dim strSQL, skunbr As String 
    Dim DBCON, myConn, myCommand, rs As Object 
    Dim NoOfRecords As Long 
    skunbr = TextBox1.Text 
    rs = CreateObject("ADODB.Recordset") 
    Const DB_CONNECT_STRING = "Provider=MSDASQL.1;Persist Security Info=False;User ID=cpa5k;Data Source=NP1;DSN=NP1;UID=user;PASSWORD=pass;SDSN=Default;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;Initial Catalog=QA1MM;" 
    myConn = CreateObject("ADODB.Connection") 
    myCommand = CreateObject("ADODB.Command") 
    myConn.Open(DB_CONNECT_STRING) 
    myCommand.ActiveConnection = myConn 
    myCommand.CommandText = "update QA1MM.STRSK_OH set OH_QTY = 250 where SKU_NBR = 100013 and STR_NBR = 116;" 
    myCommand.Execute() 
    strSQL = "select * from QA1MM.STRSK_OH where SKU_NBR = " & skunbr & " with ur FETCH FIRST 10 ROWS ONLY;" 
    rs.Open(strSQL, myConn) 
    DataGridView1.DataSource = rs 
    DataGridView1.Refresh() 
    myConn.Close()

来源

2012-03-28 user1271146

我不在这里发布数据库密码是不错的做法。问题是rs不是SqlDataSource – Cerveser 2012-03-28 12:10:26

我在GridView中做了一些更改，它必须在数据库中更新......我正在尝试使用此方法。但它不工作..wat做..... Dim ds As Object ds = DataGridView1.DataSource myDA.Update（ds） – user1271146 2012-03-29 10:15:41

而不是直接分配到ADODB.RecordSet喜欢的datagridview，首先转换的数据源/填充的记录值数据集像下面

Dim myDA As OleDbDataAdapter = New OleDbDataAdapter 
Dim myDS As DataSet = New DataSet 

myDA.Fill(myDS, rs, "MyTable") 
DataGridView1.DataSource = myDS.Tables(0)  
DataGridView1.Refresh()

来源

2012-03-28 12:23:55

好的thanx .....其工作正常 – user1271146 2012-03-28 12:50:09

我正在做一些改变在GridView中，它必须在数据库中更新...我试图在这种方法。但它不工作..wat做... Dim ds As Object ds = DataGridView1.DataSource myDA.Update（ds） – user1271146 2012-03-29 10:13:02

是否在更新时抛出任何异常。 – 2012-03-29 10:46:35

这是经典的VB方式。不是.NET

请参阅此MSDN链接

来源

2012-03-28 12:13:28 PraveenVenu

回答

相关问题