Reply to thread

Message: <blockquote data-quote="ad.hasareli" data-source="post: 12641359" data-attributes="member: 275082">If sqlConn.State = ConnectionState.Closed Then            sqlConn.Open()        End If        Dim code As String = cmbitemcode.Text        Dim sqlstr As String = "Select * from items where ItemCode='" & code & "'"        sqlAD = New SqlDataAdapter(sqlstr, sqlConn)        Sqlds.Clear()        sqlAD.Fill(Sqlds, "det")        txtitemname.Text = Sqlds.Tables("det").Rows(0).Item(1)        txtuprice.Text = Sqlds.Tables("det").Rows(0).Item(2)        txtstoreloc.Text = Sqlds.Tables("det").Rows(0).Item(3)        txtsupcode.Text = Sqlds.Tables("det").Rows(0).Item(4)        txtcstock.Text = Sqlds.Tables("det").Rows(0).Item(5)        sqlConn.Close()    End Subuda thiyena code aka me class akata set wena widihata hadala dennako plzzzz.Imports System.Data.SqlClientModule Dbconn    Public Dset1 As New DataSet    Public Sqlda As New SqlDataAdapter    Public Cmd As New SqlCommand    Public Conn As New SqlConnection    Public Sqlds As String = "Data Source=AMILA-03F56932B;Initial Catalog=items;Integrated Security=True"End Module</blockquote>

Top Bottom