Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click Dim cn As SqlCeConnection 'string path = Assembly.GetExecutingAssembly().GetName().CodeBase 'string file = Path.Comblie(Path.GetDirectoryName(path),"//AppDatabase1.sdf) 'cn = New SqlCeConnection("Data Source =" _ ' + (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase) + "\AppDatabase1.sdf;")) cn = New SqlCeConnection("Data Source = D:\AppDatabase1.sdf") cn.Open() 'cn.Open() Dim myCommand As SqlCeCommand = cn.CreateCommand() dt = Nothing myCommand.CommandText = "SELECT [id], [name], [email] ,'A' as [flag] FROM [mytable] " 'WHERE id = '" & strID & "' " myCommand.CommandType = CommandType.Text dt = New DataTable Adapter = New SqlCeDataAdapter(myCommand) Adapter.Fill(dt) GridView.DataSource = dt End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง