test feed here

เชิญร่วมงาน ComBiz Festival ครั้งที่ 2

2010-12-02T00:45:00.000-08:00

งานนี้จัดเพื่อนิสิตทุกคน ใน มมส.

เข้าไปดูรายละเอียดได้ที่ www.bc.msu.ac.th/cbf2011

กิจกรรมในงาน

เลือกซื้อสินค้า IT ราคาถูก
รับซอฟต์แวร์ฟรี จาก Microsoft
ชมนิทรรศการ และการแสดงต่าง ๆ ของนิสิตในสาขา BC,BIT,ECOM
การแข่งขันทางวิชาการต่าง ๆ

คำสั่งกำหนดชื่อ column ใน datagrid ให้เป็นภาษาไทย

2010-11-24T19:17:00.000-08:00

dv1.Columns.Item(0).HeaderText = "บาร์โค้ด"
dv1.Columns.Item(1).HeaderText = "ชื่อ"
dv1.Columns.Item(2).HeaderText = "เพศ"
dv1.Columns.Item(3).HeaderText = "โทรศัพท์"

dv1 หมายถึงชื่อของ datagird

คำสั่งที่จะกำหนดให้เปิดรายงาน Crystal Report โดยไม่ถาม Password

2010-04-08T21:18:00.000-07:00

Public Sub setlogoninfo(ByVal myreport As CrystalDecisions.CrystalReports.Engine.ReportDocument)
Dim MyLogonInfo As CrystalDecisions.Shared.TableLogOnInfo
For Each MyTable As CrystalDecisions.CrystalReports.Engine.Table In myreport.Database.Tables
MyLogonInfo = MyTable.LogOnInfo
Dim stConnection As New ConnectionInfo
stConnection = MyLogonInfo.ConnectionInfo
stConnection.DatabaseName = "sale_db"
stConnection.ServerName = "xxxxx"
stConnection.UserID = "xxxxx"
stConnection.Password = "xxxx"
myreport.Database.Tables(MyTable.Name).ApplyLogOnInfo(MyLogonInfo)
Next
End Sub

เวลาจะเปิดรายงาน ก็ใช้คำสั่งประมาณนี้

Imports System.Data
Imports System.Data.SqlClient
Public Class frm_show_report_order
Dim objCon As New connection 'เรียกใช้ Class Connection เพื่อเข้าถึงฐานข้อมูล
Dim conn As New SqlConnection(objCon.strCon) 'เข้าถึงฐานข้อมูลตามค่าที่กำหนดไว้

Private Sub frm_show_report_order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objReport As New report_order_to_supplier
crview.SelectionFormula = "{tbl_order_to_supplier.sup_order_id} = " & frmOrder_to_supplier.lblOrderID.Text
objCon.setlogoninfo(objReport) 'ป้องกันไม่ให้ มีการถาม username และ password
crview.ReportSource = objReport
crview.Refresh()
crview.PrintReport() 'สั่งพิมพ์ทันทีที่เปิดรายงาน
Me.Close() 'ปิดรายงานทันที่ที่พิมพ์เสร็จแล้ว
End Sub
End Class

คำสั่งสำหรับเปิด รายงาน ใน crytal report

2010-04-06T01:46:00.000-07:00

Imports System.Data
Imports System.Data.SqlClient
Public Class frm_show_report_order
Dim objCon As New connection 'เรียกใช้ Class Connection เพื่อเข้าถึงฐานข้อมูล
Dim conn As New SqlConnection(objCon.strCon) 'เข้าถึงฐานข้อมูลตามค่าที่กำหนดไว้

Private Sub frm_show_report_order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objReport As New report_order_to_supplier
crview.SelectionFormula = "{tbl_order_to_supplier.sup_order_id} = " & frmOrder_to_supplier.lblOrderID.Text
'ให้แสดงเฉพาะใบสั่งซื้อที่แสดงในฟอร์มเท่านั้น
objCon.setlogoninfo(objReport) 'ป้องกันไม่ให้ มีการถาม username และ password
crview.ReportSource = objReport
crview.Refresh()
crview.PrintReport() 'สั่งพิมพ์ทันทีที่เปิดรายงาน
Me.Close() 'ปิดรายงานทันที่ที่พิมพ์เสร็จแล้ว
End Sub
End Class

การใช้ Dataset และ DataAdapter เพื่อแสดงค่าใน label

2010-03-28T18:57:00.000-07:00

Dim conn As New SqlConnection("Data source=server_name;initial catalog=

database_name;User ID=username;Password=pws")

conn.Open() ‘เปิดการติดต่อกับฐานข้อมูล

Dim SQL as String
SQL = "SELECT member_name,member_mobile
From tbl_member Where member_barcode = '" & txtMember_barcode.Text & "'"
Dim objDataAdapter1 As New SqlDataAdapter(SQL, conn)
Dim objdataset1 As DataSet = New DataSet()
objDataAdapter1.Fill(objdataset1, "c1")
If objdataset1.Tables(0).Rows.Count > 0 Then
lblName.Text = objdataset1.Tables(0).Rows(0)(0).ToString() ‘อ่านค่าจะ column แรก
lblMobile.Text = objdataset1.Tables(0).Rows(0)(1).ToString() ‘อ่านค่าจะ column 2
Else
MessageBox.Show("ไม่พบข้อมูล")
End If
Conn.close

การเพิ่มข้อมูลใหม่ เข้าไปใน Database mssql

2010-03-26T02:35:00.000-07:00

การเพิ่มข้อมูลใหม่ insert into

Dim conn As New SqlConnection("Data source=server_name;initial catalog=

database_name;User ID=username;Password=pws")

conn.Open() ‘เปิดการติดต่อกับฐานข้อมูล

Dim SQL As String

SQL = “INSERT INTO tbl_member(member_name,member_mobile) VALUES ('" & txtMember_name.Text & "','" & txtMember_mobile.Text & “’)”

Dim cmd1 As SqlCommand = New SqlCommand(SQL,conn)

cmd1.ExecuteNonQuery()

Messagebox.show(“เพิ่มข้อมูลเรียบร้อยแล้ว”)

Conn.close

การเขียนโปรแกรม visual Basic.Net เพื่อ connect database Mssql

2010-03-26T01:28:00.000-07:00

ตัวอย่างการเขียนคำสั่งเพื่อติดต่อกับฐานข้อมูล แล้วนำข้อมูลมาแสดงผลที่ label

Dim conn As New SqlConnection("Data source=server_name;initial catalog=

database_name;User ID=username;Password=pws")

conn.Open() ‘เปิดการติดต่อกับฐานข้อมูล

Dim cmd2 As SqlCommand = New SqlCommand("SELECT member_name, member_mobile From tbl_member Where member_barcode = '" & txtMember_barcode.Text & "'" , conn)

Dim Objname As SqlDataReader

Objname = cmd2.ExecuteReader()

if Objname.Read = True Then ‘ตรวจสอบว่ามีข้อมูลหรือไม่

lblName.Text = Objname.Item("member_name") ‘นำค่าจาก Field มาแสดงใน label

lblMobile.Text = Objname.Item("member_mobile")

End if

Objname.Close()

แนะนำเว็บไซต์สำหรับจัดการรายวิชา Project1 และ Project2

2010-03-26T01:19:00.000-07:00

สำหรับนิสิต BC ทุกคน ให้เข้าไปดูรายละเอียดการเรียนวิชาอาจารย์ผู้สอนที่ต้องการทำ ได้ที่ www.bc.msu.ac.th