นี้คือส่วนของปุ๋ม search ค่ะ เมื่อใช้ where ชี้ไปตัวที่เราต้องการพอรันแล้วไม่ขึ้นข้อมูลใดๆๆเลยค่ะแต่พอเอาออกแล้วสามารถเรียกข้อมูลทั้งหมดที่เราผูกเข้าด้วยกันได้ค่ะ
Private Sub btnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click
connection() connec.Open() setcommand("select ARC_ItmMast.ARCIM_Code,ARC_ItmMast.ARCIM_Desc,INC_Itm.INCI_UnitCost, ARC_ItemPriceItaly.ITP_Price" _ & " FROM (SQLUser.ARC_ItmMast ARC_ItmMast LEFT OUTER JOIN SQLUser.ARC_ItemPriceItaly ARC_ItemPriceItaly ON ARC_ItmMast.ARCIM_RowId=ARC_ItemPriceItaly.ITP_ParRef), SQLUser.INC_Itm INC_Itm" _ & " WHERE (ARC_ItmMast.ARCIM_RowId=INC_Itm.INCI_ARCIM_DR) AND ARC_ItmMast.ARCIM_Code like'%txtID.text%'")
adapter.Fill(ds, "ARC") dt = ds.Tables("ARC") DataGridView1.DataSource = dt dr = cmd.ExecuteReader ds.Clear() End sub ส่วนตรงนี้เป็นคำสั่ง เชื่อมต่อกับฐานข้อมูล Cache' ค่ะ
mports System.Data.Odbc Imports System.Data
Module Module1 Public connec As OdbcConnection Public cmd As OdbcCommand Public adapter As OdbcDataAdapter Public ds As New DataSet Public dr As OdbcDataReader Public dt As DataTable Public dt1 As DataTable Public strcon As String = "DSN=medtrak;PORT=1972;UID=_system;DATABASE=websource;PWD=sys;QUERY TIMEOUT=1; SERVER=10.0.163.10" Sub connection() connec = New OdbcConnection(strcon)
End Sub Sub setcommand(ByVal sql As String) cmd = New OdbcCommand(Sql, connec) adapter = New OdbcDataAdapter(cmd) End Sub