Private Sub Btnload_Click() Dim vSQl As String Dim rsLoad As New ADODB.Recordset vSQl = " select teacherid,count( StudentID) " &_ "from CheckTimeTeacher cross join CheckTimeStudent" & _ "where CheckTimeTeacher.workdate = '11/15/2008' " & _ "and CheckTimeStudent.workdate = '11/15/2008' " & _ " and (CheckTimeTeacher.WorkHour * 60 + CheckTimeTeacher.WorkMin) <= (CheckTimeStudent.WorkHour * 60 + CheckTimeStudent.WorkMin+ 120) " & _ "group by teacherid" With rsLoad If .State = adStateOpen Then .Close .ActiveConnection = Conn .Open vSQl If .RecordCount <> 0 Then Set FGEmployee.DataSource = rsLoad End If End With End Sub
With rsLoad If .State = adStateOpen Then .Close() .ActiveConnection = Conn .Open(vSQl) If .RecordCount <> 0 Then FGEmployee.DataSource = rsLoad End If End With End Sub
'====openfiledialog========= Dim ret As DialogResult Dim img As Image
OpenFile2.InitialDirectory = Application.StartupPath ret = OpenFile2.ShowDialog() If ret = Windows.Forms.DialogResult.OK Then originalImage = Image.FromFile(OpenFile2.FileName) currentImage = CType(originalImage.Clone(), Image) txtPic.Text = OpenFile2.FileName With PicBox img = Image.FromFile(OpenFile2.FileName) ' ---- โหลดภาพจากไฟล์เข้าตัวแปรชนิด Image .Image = img ' ---- แสดงภาพ preview. End With End If
'=====savefiledialog======= SaveFile2.FileName = txtPic.Text If SaveFile2.ShowDialog() = Windows.Forms.DialogResult.OK Then currentImage.Save(SaveFile2.FileName, GetImageFormat()) txtPic.Text = SaveFile2.FileName
Private Sub cmdall_Click() Call connect Call conntbl Dim debtortotal As Long Dim sumpay As Long Dim sumcost As Long Dim sumnet As Long Dim i As Long With rstbl If .State = adStateOpen Then .Close .Open "SELECT * from tblssj union all select * from tblcutssj ", , adOpenDynamic Set msf.DataSource = rstbl
End With With msf For i = 1 To .Rows - 1 debtortotal = debtortotal + (.TextMatrix(i, 4)) sumcost = sumcost + (.TextMatrix(i, 6)) sumpay = sumpay + (.TextMatrix(i, 7)) sumnet = sumnet + (.TextMatrix(i, 10)) Next txtdebtor.Text = Format(debtortotal, "#,##0") txtpay.Text = Format(sumpay, "#,##0") txtcost.Text = Format(sumcost, "#,##0") txtsumtotal.Text = Format(sumnet, "#,##0") End With End Sub
Dim Conn As New ADODB.Connection Dim rstbl As New ADODB.Recordset Dim rstbl2 As New ADODB.Recordset
Private Sub Form_Load() With Conn If .State = adStateOpen Then .Close .ConnectionString = strConn .CommandTimeout = 90 .Open End With Dim sqltest As String
Dim sqltest1 As String Dim sqld As String Dim sqld1 As String
sqltest = "select * from tblIPHC order by AN " sqltest1 = "select * from tblnetIPHC order by AN" 'where AN like '%" & AN & "%'" Dim AN As Long Dim AN2 As Long With rstbl If .State = adStateOpen Then .Close .ActiveConnection = Conn .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Open sqltest AN = rstbl("AN").Value txtAN.Text = AN txtAN2.Text = AN2 txtsum.Text = rstbl.RecordCount End With With rstbl2 If .State = adStateOpen Then .Close .ActiveConnection = Conn .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Open sqltest1 AN2 = rstbl2("AN").Value txtAN2.Text = AN2 txtsum2.Text = rstbl2.RecordCount End With End Sub Private Sub Command1_Click() Dim sqltest As String Dim sqltest1 As String Dim sqld As String Dim sqld1 As String
sqltest = "select * from tblIPHC order by AN " sqltest1 = "select * from tblnetIPHC order by AN" 'where AN like '%" & AN & "%'" Dim AN As Long Dim AN2 As Long Dim i As Integer Dim ii As Integer ii = txtsum.Text For i = 0 To ii
With rstbl If .State = adStateOpen Then .Close .ActiveConnection = Conn .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Open sqltest AN = rstbl("AN").Value txtAN.Text = AN End With With rstbl2
If .State = adStateOpen Then .Close .ActiveConnection = Conn .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Open sqltest1 AN2 = rstbl2("AN").Value txtAN2.Text = AN2 End With If AN = AN2 Then sqld = "delete * from tblIPHC where AN = '" & txtAN.Text & "'" Conn.Execute sqld
sqld1 = "delete * from tblnetIPHC where AN = '" & txtAN2.Text & "'" Conn.Execute sqld1 Else txtcost2.Text = (" not AN") End If Next i End Sub
Public Sub GridLongDate(Grid As MSHFlexGrid, ColumnNumber As Integer) Dim X As Long Dim strDate As String Dim dteDate As Date
With Grid For X = .FixedRows To .Rows - 1 strDate = .TextMatrix(X, ColumnNumber) dteDate = Format(strDate, "MM/DD/YYYY") strDate = Format(dteDate, "d-mmm-yyyy") .TextMatrix(X, ColumnNumber) = strDate Next X End With End Sub
98 ความคิดเห็น:
ขอบคุณทุกคนที่แวะมานะครับ
ฝากข้อความทักทายกันก่อนออกไปนะครับ
^^
ดีจ๊ะ น้องพง..
comment ในส่วนการสอนก้ออธิบายเข้าใจง่ายดี แต่บางครั้งก้อรวบรัดไปหน่อย แต่คงเป็นช่วงนั้นเวลาที่ค่อนข้างจำกัดเพราะต้องเร่งส่งงาน อภัยได้จ๊ะ
PKui
อิอิ ^^
สวัสดีพงกี้ สอนอะไรเนี่ย คือไม่ได้เรียนด้านนี้มาอ่ะ ^^" เสียใจด้วย อ่านไม่ค่อยเข้าใจ
ทำได้แล้วครับ เรื่องที่ปรึกษาเมื่อคืน
พอดีโทรไปติดต่อไม่ได้ เลยมาเม็นบอกแล้ว
กันนะครับ ขอบคุณครับ
GOD 232
หวาดดีทั่นเทพพงกี้บอย
เดี๋ยวนี้เปงติวเตอร์แล้วหรอ อืมๆ เจ๋งๆ
ปล.สอนน้องๆ ดีๆ ล่ะ อย่ามี hidden agenda นะ หุหุ
อิอิ สอนดีอยู่แว้ว ไม่เชื่อถามศิษฐ์เก่าได้
เนาะ ~ ^^
- ผู้ที่ไม่มีพื้นฐานก็สามารถที่จะเรียนได้โดยทางเราจะปูพื้นฐานตั้งแต่เริ่มแรกจนกระทั่งทำเป็น
เป๊ะเลยครับ พอดีผมต้องทำ idp เกี่ยวกับการพัฒนาระบบด้วยน่ะครับ พงกี้คิดค่าสอนยังไง แล้วมีคอร์สการเรียนยังไง สอนที่ไหน แนะนำหน่อยครับ มอสซ่าส์ครับ
-ตอบคุณ มอสซ่าส์ครับ
-idp นี่คือ แผนพัฒนาบุคลากรรายบุคคล รึปล่าวครับ
-ค่าสอนจะคิด 2 แบบอ่ะครับ คิดเป็นโปรเจ็กต์กับคิดเป็นชม.
ส่วนราคาต้องดูระยะทาง กับ ขนาดโปรเจ็กต์ก่อนอ่ะครับ
ลองโทรมาคุยรายละเอียดกันดูนะครับ
--Group ครู เพื่อนับจำนวนนร.
select TeacherID,count( StudentID)
from CheckTimeTeacher cross join CheckTimeStudent
where CheckTimeTeacher.workdate = '11/16/2008'
and CheckTimeStudent.workdate = '11/16/2008'
and (CheckTimeTeacher.WorkHour * 60 + CheckTimeTeacher.WorkMin) <= (CheckTimeStudent.WorkHour * 60 + CheckTimeStudent.WorkMin+ 120)
group by TeacherID
ถามเลยนะครับ
ตรงที่ใส่ 11/16/2008 ทั้ง 2 อันนี้ ผมไปรันที่วิว แต่ถ้าอยากให้
โชว์ทั้งหมดให้เปลี่ยนเป็นไรอ่ะครับ
-ตอบพี่บุ๊งคับ
อันนี้เขียนเป็นวิวไม่ได้อ่ะคับ
ต้องใส่ทั้งปึ้งนี่ลงไปใน code เลย
แต่ถ้าไม่อยากใส่ทั้งปึ้งนี่ลงไป ต้องเขียน sql เป็น function คับ
จะค่อนข้างเทพเกินไปนิดนึง เดี๋ยวจะยิ่งงงอ่ะคับ
Private Sub Btnload_Click()
Dim vSQl As String
Dim rsLoad As New ADODB.Recordset
vSQl = " select teacherid,count( StudentID) " &_
"from CheckTimeTeacher cross join CheckTimeStudent" & _
"where CheckTimeTeacher.workdate = '11/15/2008' " & _
"and CheckTimeStudent.workdate = '11/15/2008' " & _
" and (CheckTimeTeacher.WorkHour * 60 + CheckTimeTeacher.WorkMin) <= (CheckTimeStudent.WorkHour * 60 + CheckTimeStudent.WorkMin+ 120) " & _
"group by teacherid"
With rsLoad
If .State = adStateOpen Then .Close
.ActiveConnection = Conn
.Open vSQl
If .RecordCount <> 0 Then
Set FGEmployee.DataSource = rsLoad
End If
End With
End Sub
Private Sub Btnload_Click()
Dim vSQl As String
Dim rsLoad As New ADODB.Recordset
vSQl = " select teacherid,count( StudentID) " &_
"from CheckTimeTeacher cross join CheckTimeStudent" & _
"where CheckTimeTeacher.workdate = @WorkDate " & _
"and CheckTimeStudent.workdate = @WorkDate " & _
" and (CheckTimeTeacher.WorkHour * 60 + CheckTimeTeacher.WorkMin) <= (CheckTimeStudent.WorkHour * 60 + CheckTimeStudent.WorkMin+ 120) " & _
"group by teacherid"
vsl = vSQl.Replace("@WorkDate", "'" & SetFormatDate(EdtWorkDate.text) & "'")
With rsLoad
If .State = adStateOpen Then .Close()
.ActiveConnection = Conn
.Open(vSQl)
If .RecordCount <> 0 Then
FGEmployee.DataSource = rsLoad
End If
End With
End Sub
-- ลองประมานนี้ครับ พี่บุ๊ง
ผมนั่งไล่โค๊ดดูแล้วครับ ผมทำผิดตรง SYNTAX กับ KEYWORD
ขอบคุณสำหรับคำตอบครับ
~(^^~)
http://www.tourkohchang.com/tour_01.php?id_tour=8
เผื่อพงกี้อยากไปพักผ่อน
ค่ะอยากฟื้นความรู้อ่ะ คิดเท่าไหร่ค่ะ dps_somja@hotmail.com
สนใจอยากเรียน VB.Net 2005 ตอนนี้เรียนอยู่ปี 4 ใกล้จะได้ทำโปรเจ็คจบแล้ว กำลังมองหาที่เรียนเพิ่มเติม เพราะชอบทางเขียนโปรแกรมมากกว่าMultimedia เลยอยากหาความรู้ให้แน่นพอสำหรับทำและพรีเซ้นต์โปรเจ็ค พี่ช่วยส่งรายละเอียดค่าใช้จ่ายในการที่ให้พี่สอนเพิ่มเติมจนAdvance สนใจม๊าก มากค่ะ แต่หนูอยู่แถวหลักสี่นะคะ ส่งมาที่ pampam__999@hotmail.com นะคะ ขอบคุณล่วงหน้าค่ะ
(~^^)~
~(^^~)
~( ^^ )~
555+ ไปดอยอินมาแล้ว สรุปพงจะมาเที่ยวกี่วันเนี้ย
ไป 4 วัน 3 คืน งิอิอิ
ดอยอินหนาวม๊ายยยย~
พี่ครับผมจะทำโปรแกรมแสดงผลกิจกรรม
แต่ทำไม่ได้ ต้องทำยังไงบ้างครับ
ช่วยหน่อย เพราะมันเป็นวิชาโครงการ
จะต้องส่งเร็ว ๆ นะครับ เดี๋ยวไม่จบ
อยากเรียน VB.Net เคยมีพื้นฐานมาบ้างแล้ว ใน VB.6 แต่นานมากตอนนี้คงลืมค่ะเพราะไม่เคยใช้งานเลย แต่ตอนนี้สนใจและมีเวลาว่าง วันเสาร์ อาทิตย์ ช่วยส่งราคา ค่าเรียนมาให้ดูหน่อย ถ้าราคาเหมาะสมก็สนใจจะเรียน
e_pinked@yahoo.com
- ครับผมจะทำโปรแกรมแสดงผลกิจกรรม
แต่ทำไม่ได้ ต้องทำยังไงบ้างครับ
ช่วยหน่อย เพราะมันเป็นวิชาโครงการ
จะต้องส่งเร็ว ๆ นะครับ เดี๋ยวไม่จบ
ตอบ - เอ่อ รายละเอียดน้อยมากเลยอ่ะครับ
ไม่รู้จะช่วยแนะนำยังไงเลยอ่ะคับ ^^"
หวัดดีครับผมจะมาให้ช่วยหน่อย คือทำโปรแกรมรายการอาหารอะแต่ทำไม่ได้ ไม่รู้ใส่โค้ดไรบ้าง งั้นเดี๋ยวมาใหม่แล้วกัน
อ่า ถามกว้างมากๆเลยครับ จะช่วยยังไงดีล่ะครับเนี่ย *-*
จะทำโปรแกรมแสดงผลกิจกรรมในวิทลัย
แต่ทำไม่เป็น ต้องทำยังไงบ้าง
ช่วยหน่อย เพราะมันเป็นวิชาโครงการ
จะต้องส่งเร็ว ๆ เดี๋ยวไม่จบนะคะช่วยหน่อย
สอนวิธีทำตัวเซ็ตอัพหน่อยได้ไหมครับ
- จะทำโปรแกรมแสดงผลกิจกรรมในวิทลัย
แต่ทำไม่เป็น ต้องทำยังไงบ้าง
ช่วยหน่อย เพราะมันเป็นวิชาโครงการ
จะต้องส่งเร็ว ๆ เดี๋ยวไม่จบนะคะช่วยหน่อย
- ตอบ ลองโทรมาคุยกันดีกว่ามั้งครับ ถามแบบนี้ไม่รู้จะตอบยังไงจริงๆครับ
อาการจอขาวแบบว่า ถ้ากดเข้ากดออกReportบ่อยๆคับ เหมือนว่ามันยัง
คอนเน็กอยู่หรืออย่างไรไม่รู้ครับ ถ้าทำบ่อยcrytalเน่าเลยครับ
แต่ว่าบางครั้งเปิดมาทีแรกก็เน่าเลยแต่ว่าไม่บ่อยครับ
อยากเรียน VB.Net SQL ครับตอนนี้สนใจมากครับและมีเวลาว่าง วันเสาร์ อาทิตย์ กรุณาช่วยส่งราคา ค่าเรียนมาให้ดูหน่อย
lek_lll@hotmail.com
-ขอบคุณครับ
สวัสดีคะ....
มีเรื่องจะรบกวนนิดหน่อยคะ อยากรู้วิธีการ savefile .MP3 กับ.swf
โดยการก๊อบปี้ไฟล์ไปเก็บไว้อีกโฟล์เดอร์ ทำได้แต่ที่เป็นรูปภาพคะ
'====openfiledialog=========
Dim ret As DialogResult
Dim img As Image
OpenFile2.InitialDirectory = Application.StartupPath
ret = OpenFile2.ShowDialog()
If ret = Windows.Forms.DialogResult.OK Then
originalImage = Image.FromFile(OpenFile2.FileName)
currentImage = CType(originalImage.Clone(), Image)
txtPic.Text = OpenFile2.FileName
With PicBox
img = Image.FromFile(OpenFile2.FileName) ' ---- โหลดภาพจากไฟล์เข้าตัวแปรชนิด Image
.Image = img ' ---- แสดงภาพ preview.
End With
End If
'=====savefiledialog=======
SaveFile2.FileName = txtPic.Text
If SaveFile2.ShowDialog() = Windows.Forms.DialogResult.OK Then
currentImage.Save(SaveFile2.FileName, GetImageFormat())
txtPic.Text = SaveFile2.FileName
End If
ให้ไปที่เมนู Project -> Reference แล้ว ติ๊กตรง Microsoft Scripting Runtime
จากนั้นลองเอานี้ไป Apply ใช้ดูนะครับ
Option Explicit
Dim fso As New FileSystemObject
Dim strSource As String, strDestination As String
Private Sub btnCopy_Click()
strSource = "C:\Test" 'กำหนดตำแหน่งโฟลเดอร์ต้นทาง
strDestination = "D:\" 'กำหนดตำแหน่งโฟลเดอร์ปลายทาง
fso.CopyFolder strSource, strDestination, True
End Sub
มีรูปแบบการใช้งานดังนี้ครับ
Source คือ ตำแหน่งโฟลเดอร์ต้นทาง
Destination คือ ตำแหน่งปลายทางที่ต้องการคัดลอกไปไว้
OverwriteFile คือ การเขียนทับไฟล์ที่มีชื่อตรงกันหรือไม่ (ไม่ว่าไฟล์นั้นจะอยู่ในสถานะใดก็ตาม แต่ต้องไม่ถูกเปิดใช้งานอยู่)
credit : http://www.thaiadmin.org/board/index.php?topic=5097.0;wap2
ผมเขียนโปรแกรมฐานข้อมูล
แล้วไปรันเครื่องอื่นไม่ได้ละคับ
ช่วยบอกหน่อยนะคับ
มือใหม่....ขอบคุณคับ
มีหลายสาเหตุมากเลยครับ
ต้องเอา error code ที่เจอไปลอง search ใน google ดูอ่ะครับ
ว่ามัน error จากสาเหตุอะไร
อยากถามาว่าถ้าเรามีTextbox1อัน แล้วมีข้อมูลอยู่ในนั้น หลายบรรทัด แต่ว่าเราต้องการค้นหาตัวเลข
ซึ่งตัวเลขนี้อยู่ปนกับกัวอักษร (ตัวเลขนี้มี5ตัวติดกันครับ) เราจะใช้วิธีการค้นหาตัวเลขนี้อย่างไร
ครับ จะทำให้รู้ว่านี่คือเลขที่ติดกัน5 ตัว (เพราะว่าในTEXTอาจมีตัวเลขอยู่ด้วยแต่ว่าไม่ได้มีถึง5ตัวครับ)
อย่างไรขอคำแนะนำ้ด้วยนะครับ ขอบคุณมากๆครับ
function ที่ชื่อ instr คับ
InStr([start,]string1,string2[,compare])
txt="This is a beautiful day!"
pos=InStr(4, txt, "is")
จะได้ pos=6
คือคำว่า is อยู่ที่ตำแหน่งที่ 6
แล้วใช้คำสั่ง left หรือ mid ตัดคำที่ต้องการออกมาอีกทีอ่ะคับ
ที่มา http://www.thaiadmin.org/board/index.php?topic=50043.0
ใช่ที่ต้องการป่าวอ่ะคับ
ถ้าต้องการค้นหาแบบประหลาดๆ ก็วนหลูบ ดึงตัวอักษรออกมาเช็คทีละตัวเลยก็ได้ครับ
ผมส่งโค๊ดไปให้ดูดีกว่าครับ
ต้องการเรียน vb เพื่อทำโปรเจค ราคาเท่าไหร่ค่ะ
ราคาขึ้นอยู่กับโปรเจ็คที่จะเรียนกับ
ระยะทางที่จะไปสอนอ่ะครับ
โทรมาคุย จะสะดวกกว่าครับ
ขอเบอร์ได้ไหมครับ
กำลังสนใจจะเรียน VB.net
0866771926 ครับผม
สวัสดีชื่อหนึ่งนะ อยากเรียน VB.net แต่ไม่รู้จะไปเรียนยังไงเพราะต้องทำงาน งั้นถ้ามีโอกาสจะเข้ามาแวะเวียนขอปรึกษาคำหน่อยละกันได้ไหมน๊า...Wara_suc@hotmail.com
ยินดีต้อนรับครับ
แวะเวียนมาทักทายกันได้เลยครับ
^^
คือ ที่เสีย 800 ครั้งแรกง่ะ - - เครดิตตัวไหน ?
แล้วที่ทำของแล้วเสียครั้งต่อ ๆ ไป มันจะเสียขนาดไหน ? เครดิตอันไหน ?
แบบตอนไปนอ่านในบอร์ดเฮียมาร์คอย่างว้าวุ่น - - เปนดีมะเนี่ย -*-
หวัดดีคับ ผมเขียน vb6 คับ จะมี อยู่ 3 ตารางคับ
ตารางแรก เป็นตาราง บันทึกข้อมูลหนี้คับ
ตารางที่สอง เป็นตารางที่มีการจ่ายหนี้มาคับ การจ่ายหนี้แต่ละครั้งจะจ่ายเป็นหลายร้อยรายเลยคับ ผมต้องการให้มีการเปรียบเทียบระหว่าง ตารางแรกกับตารางที่ 2 คับ
โดยใช่เลขที่บิล ถ้าเลขที่บิลตรงกันแล้ว ให้ทำการลบ ข้อมูลจากตารางแรก และตารางที่ 2 มาเพิ่มในตารางที่ 3 คับ ผมต้องการให้ วนลูปทำครั้งเดียวเลยคับ แต่ผมลองทำมาหลายวันแล้วยังทำไม่ได้เลยคับ
ผมรบกวนคุณ พงกี้ จำลองแบบ แล้วเขียนโค้ดให้ผมดูหน่อยได้ไหมคับ
หรือใครก็ได้คับช่วยผมทีคับ ด่วนมากเลยคับ
ตอบตามบอร์ดนี้ก็ได้คับ หรือส่งเมล์ให้ก็ได้คับ
porramatthathong@hotmail.com
ขอบคุณมากคับ
ใช้ query ประมาณนี้อ่ะครับ
-เพิ่มข้อมูลไปในตารางที่ 3
insert into Table3
select *
from table1 join table2
on table1.billno = table2.billno
-ลบออกจาก table 1,2
delete from table1
where billno in (select billno from table3)
delete from table2
where billno in (select billno from table3)
สวัสดีคับคุณพงกี้ ขอบคุณคับ ที่ช่วยแนะนำ
แต่ผมลองทำแล้วคับ มันไม่ได้เลยคับ ลืมบอกไปกับ ผมพึ่งหัดเขียนคับ
ผมรบกวนคุณพงกี้อีกหน่อยละกันคับ คราวนี้นี้มีตารางมาให้ด้วยคับ
ตารางที่ 1 ประกอบด้วย
BillNo(อ้นนี้เป็นคีย์หลักคับ) Name ADMIT Cost(ยอดหนี้คับ)
ตารางที่ 2 ประกอบด้วย
BillNo pay(ยอดจ่ายคับ) datepay
ตารางที่ 3 ประกอบด้วย
BillNO Name ADMIT Cost Pay Datepay Total(อันนี้เป็นยอดที่ Cost - pay คับ)
สำหรับฟอร์มจะมี ปุ่ม command เพื่อที่จะใช้กดให้มันคำนวนคับ
ผมรบกวนคุณพงกี้ช่วยเขียนโค้ดให้ดูหน่อยได้ไหมคับ หรือถ้าผมออก
แบบตารางผิดยังไงคุณพงกี้ก็ช่วยกรุณาแนะนำด้วยคับ
ขอบคุณมากคับ
porramatthathong@hotmail.com
สวัสดีคับคุณพงกี้ ขอบคุณคับ ที่ช่วยแนะนำ
แต่ผมลองทำแล้วคับ มันไม่ได้เลยคับ ลืมบอกไปกับ ผมพึ่งหัดเขียนคับ
ผมรบกวนคุณพงกี้อีกหน่อยละกันคับ คราวนี้นี้มีตารางมาให้ด้วยคับ
ตารางที่ 1 ประกอบด้วย
BillNo(อ้นนี้เป็นคีย์หลักคับ) / Name / ADMIT /Cost(ยอดหนี้คับ)
ตารางที่ 2 ประกอบด้วย
BillNo / pay(ยอดจ่ายคับ) /datepay
ตารางที่ 3 ประกอบด้วย
BillNO/ Name/ ADMIT / Cost/ Pay / Datepay / Total(อันนี้เป็นยอดที่ Cost - pay คับ)
สำหรับฟอร์มจะมี ปุ่ม command เพื่อที่จะใช้กดให้มันคำนวนคับ
ผมรบกวนคุณพงกี้ช่วยเขียนโค้ดให้ดูหน่อยได้ไหมคับ หรือถ้าผมออก
แบบตารางผิดยังไงคุณพงกี้ก็ช่วยกรุณาแนะนำด้วยคับ
ขอบคุณมากคับ
porramatthathong@hotmail.com
เขียน query insert update dalete กับข้อมูลใน database
ได้รึยังอ่ะครับ
ถ้ายังนี่สงสัยจะเรื่องยาว ^^"
ได้แล้วคับ
งั้นใช้คิวรีนี้นะครับ
-การแอดลง table 3
insert into Table3(BillNO,Name, ADMIT, Cost, Pay , Datepay)
select table1.BillNo,Name, ADMIT, Cost, Pay , Datepay
from table1 join table2
on table1.billno = table2.billno
-ลบออกจาก table 1,2
delete from table1
where billno in (select billno from table3)
delete from table2
where billno in (select billno from table3)
ส่วน total ใน table 3 นี่จะเก็บอะไรอ่ะครับ
รบกวนสอบถามหน่อยค่ะ
ถ้าเราจะเขียนโปแกรม ตัดสต๊อกสินค้าหน้าร้าน
และจะใช้โปรแกรมในระยะยาว เราควรใช้ โปรแกรมอะไรเป็นฐานข้อมูลดีคะ
ขอบคุณ คุณพงกี้ ล่วงหน้านะคะ ^_^
U-dA
U-dA
ถ้าใช้ vb6 ค่ะ
ขอบคุณค่ะ
ถ้าจะใช้ระยะยาวก็ sql server ครับ
จะนิยมกันที่สุด
หวัดดีคับ รบกวนถามหน่อยคับ ผมใช้ตาราง MSHFlexgrid
พอเรียกข้อมูลมาแล้ว บวกตัวเลขใน MSHflexgrid คับ
ตัวเลขที่เป็นทศนิยม มันจะปัดเป็น 1 เลยคับ
เช่น
ตารางจะมี อยู่ 2 ค่า คือ 1.5 กับ 2.5 พอผมรวมกันผลลัพมันจะเป็น 5 เลยคับ แทนที่จะเป็น 4
ผมจะต้องทำไงคัยให้ผลลัพธ์ตรงคับ ช่วยแนะนำทีคับ
รบกวนหน่อยคับ
ใช่คำสัง union all ในการค้นหาแบบมีเงื่อนไขได้ไหมคับ
ผมลองทำดูไม่ได้เลยคับ นี้คือแบบคำสั่งที่ผมใช้คับ
"select * from tblssj union all select * from tblcutssj where dateadd like '%" & txtsearch.Text & "%'"
พอรัน แล้วทดสอบดูผมที่ออกมาไม่ตรงเลยคับ
รบกวนคุณพงกี้ช่วยแนะนำหน่อยคับ
หวัดดีคับ รบกวนถามหน่อยคับ ผมใช้ตาราง MSHFlexgrid
พอเรียกข้อมูลมาแล้ว บวกตัวเลขใน MSHflexgrid คับ
ตัวเลขที่เป็นทศนิยม มันจะปัดเป็น 1 เลยคับ
เช่น
ตารางจะมี อยู่ 2 ค่า คือ 1.5 กับ 2.5 พอผมรวมกันผลลัพมันจะเป็น 5 เลยคับ แทนที่จะเป็น 4
ผมจะต้องทำไงคัยให้ผลลัพธ์ตรงคับ ช่วยแนะนำทีคับ
--------------------------------------------------------------------
- อันนี้ต้องขอดูโค้ดหน่อยครับว่า เขียนการหาผลรวมยังไง
การใช้ flexgrid ไม่น่าเกี่ยวกับการปัดเศษนะครับ
ใช่คำสัง union all ในการค้นหาแบบมีเงื่อนไขได้ไหมคับ
ผมลองทำดูไม่ได้เลยคับ นี้คือแบบคำสั่งที่ผมใช้คับ
"select * from tblssj union all select * from tblcutssj where dateadd like '%" & txtsearch.Text & "%'"
พอรัน แล้วทดสอบดูผมที่ออกมาไม่ตรงเลยคับ
รบกวนคุณพงกี้ช่วยแนะนำหน่อยคับ
------------------------------------------------------------------------
-เขียนยังงี้ได้เลยครับ
select *
from
(
select * from tblssj
union all
select * from tblcutssj
) as T1
where dateadd like '%" & txtsearch.Text & "%'"
โค้ดที่ขอดูคับ
Private Sub cmdall_Click()
Call connect
Call conntbl
Dim debtortotal As Long
Dim sumpay As Long
Dim sumcost As Long
Dim sumnet As Long
Dim i As Long
With rstbl
If .State = adStateOpen Then .Close
.Open "SELECT * from tblssj union all select * from tblcutssj ", , adOpenDynamic
Set msf.DataSource = rstbl
End With
With msf
For i = 1 To .Rows - 1
debtortotal = debtortotal + (.TextMatrix(i, 4))
sumcost = sumcost + (.TextMatrix(i, 6))
sumpay = sumpay + (.TextMatrix(i, 7))
sumnet = sumnet + (.TextMatrix(i, 10))
Next
txtdebtor.Text = Format(debtortotal, "#,##0")
txtpay.Text = Format(sumpay, "#,##0")
txtcost.Text = Format(sumcost, "#,##0")
txtsumtotal.Text = Format(sumnet, "#,##0")
End With
End Sub
as T1 หมายความว่าไงหรอคับช่วยอธิบายหน่อยคับ
Dim debtortotal As Long
Dim sumpay As Long
Dim sumcost As Long
Dim sumnet As Long
ประกาศเป็น long มันเลยปัดเป็นจำนวนเต็มให้ครับ
ให้ประกาศเป็น single แทน
ส่วน as T1 คือ
มอง
(
select * from tblssj
union all
select * from tblcutssj
)
ทั้งก้อนนี้เป็น ตาราง ตารางนึง ใช้ชื่อว่า T1 ครับ
ขอบคุณมากคับ
Dim Conn As New ADODB.Connection
Dim rstbl As New ADODB.Recordset
Dim rstbl2 As New ADODB.Recordset
Private Sub Form_Load()
With Conn
If .State = adStateOpen Then .Close
.ConnectionString = strConn
.CommandTimeout = 90
.Open
End With
Dim sqltest As String
Dim sqltest1 As String
Dim sqld As String
Dim sqld1 As String
sqltest = "select * from tblIPHC order by AN "
sqltest1 = "select * from tblnetIPHC order by AN" 'where AN like '%" & AN & "%'"
Dim AN As Long
Dim AN2 As Long
With rstbl
If .State = adStateOpen Then .Close
.ActiveConnection = Conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqltest
AN = rstbl("AN").Value
txtAN.Text = AN
txtAN2.Text = AN2
txtsum.Text = rstbl.RecordCount
End With
With rstbl2
If .State = adStateOpen Then .Close
.ActiveConnection = Conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqltest1
AN2 = rstbl2("AN").Value
txtAN2.Text = AN2
txtsum2.Text = rstbl2.RecordCount
End With
End Sub
Private Sub Command1_Click()
Dim sqltest As String
Dim sqltest1 As String
Dim sqld As String
Dim sqld1 As String
sqltest = "select * from tblIPHC order by AN "
sqltest1 = "select * from tblnetIPHC order by AN" 'where AN like '%" & AN & "%'"
Dim AN As Long
Dim AN2 As Long
Dim i As Integer
Dim ii As Integer
ii = txtsum.Text
For i = 0 To ii
With rstbl
If .State = adStateOpen Then .Close
.ActiveConnection = Conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqltest
AN = rstbl("AN").Value
txtAN.Text = AN
End With
With rstbl2
If .State = adStateOpen Then .Close
.ActiveConnection = Conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqltest1
AN2 = rstbl2("AN").Value
txtAN2.Text = AN2
End With
If AN = AN2 Then
sqld = "delete * from tblIPHC where AN = '" & txtAN.Text & "'"
Conn.Execute sqld
sqld1 = "delete * from tblnetIPHC where AN = '" & txtAN2.Text & "'"
Conn.Execute sqld1
Else
txtcost2.Text = (" not AN")
End If
Next i
End Sub
โค้ดอยู่ข้างบนอะคับ
ผมลองทดสอบดูแล้วคับ มันจะลบ ได้ถ้า AN เรียงกันคับ (AN คือคีย์หลักคับ)
แต่ถ้า AN ไม่เรียงกันมันก็ไม่ตัดคับ
สมมุติว่า ตารางที่ 1 ตารางที่ 2
001 001
002 002
003 003
004 004
005 005
สมมุติว่าตัวเลขที่อยู่ข้างบน คือ AN นะคับ ถ้าเรียงกันแบบนั้น
โปรแกรมจะตัดได้คับ
แต่ถ้า
ตารางที่ 1 ตารางที่ 2
002 001
003 002
001 003
005 004
004 005
ถ้าเป็นตัวเลขแบบนี้มันจะไม่ตัดเลยคับ คล้าย ๆกับ ว่ามัน
ไม่ทำการวนลูปให้อะคับ
ช่วยดูหน่อยนะคับว่ามันผิดตรงไหน
ขอบคุณคับ
ไม่ต้องเขียนโค้ดวนลูบเช็คแบบนั้นหรอกครับ
มันยุ่งยากไป
ใช้ query จัดการง่ายกว่าเยอะเลยครับ
สร้างตารางที่ 3 ขึ้นมาอีกตารางนึงมี AN ฟิลเดียว
ไว้เก็บค่า AN ที่ต้องการลบนะครับ
แล้วเขียนให้มันรัน คิวรีตามลำดับนี้เลยครับ
-เคลียร์ตาราง 3 ให้ว่างก่อน
delete from table3
-เลือกตัวที่จะลบออกมาไว้ที่ตาราง 3
insert into table3(AN)
select AN
from tblIPHC join tblnetIPHC
on tblIPHC.AN = tblnetIPHC.AN
-ลบตารางที่ 1
delete from tblIPHC
where AN in (select AN from table3)
-ลบตารางที่ 2
delete from tblnetIPHC
where AN in (select AN from table3)
-เคลียร์ตารางที่ 3 ทิ้ง
delete from table3
sqld = "delete from tblcutIPHC1"
ConnDB.Execute sqld
sql = "insert into tblcutIPHC1(AN) select AN from tblIPHC1 join tblnetIPHC1 on tblIPHC1.AN = tblnetIPHC1.AN"
ConnDB.Execute sql
sqld1 = "delete from tblIPHC1 where AN in (select AN from tblcutIPHC1)"
ConnDB.Execute sqld1
sqld1 = "delete from tblnetIPHC1 where AN in (select AN from tblcutIPHC1)"
ConnDB.Execute sqld1
ช่วยดูให้หน่อยคับว่าผิดตรงไหน ยังไม่ได้ตรง insert into คับ
ตรงที่ลบได้หมดแล้ว
ขอถามอีกหน่อยคับ ว่า ถ้าผมอยากเก็บข้อมูลไว้ได้ไหมคับ เช่น ถ้า AN ตรงกันแล้ว ให้ย้ายจากตารางที่ 1 กับ 2 มาเก็บไว้อีกตารางได้ไหมคับ
เอาหมดทุกฟิลเลยนะคับ และถ้ากำหนดให้ ยอดหนี้กับยอดจ่ายลบกันได้ยิ่งดีคับ แต่ถ้าไม่ได้ก็ไม่เป็นไรคับ
ขอบคุณมากคับ
- ผิดตรงไหนนี่ไม่รู้จะบอกยังไงอ่ะคับ
มันไม่ได้ยังไงคับ error หรือว่าข้อมูลมันไม่มา หรือยังไง
- เก็บไว้ได้มั้ย นี่ก็ตารางที่ 3 ที่ insert ไปไงครับ
จะเอา field อะไรเพิ่มก็เพิ่มไปได้เลยคับ
วิธีเขียนก็ตามนี้คับ
insert into tableB (Field1, Field2)
select Field1, Field2
FROM tableA
sql = "insert into tblcutIPHC1(AN) select AN from tblIPHC1 join tblnetIPHC1 on tblIPHC1.AN = tblnetIPHC1.AN"
ConnDB.Execute sql
มัน error ตรงนี้คับ
มัน error ว่าอะไรอ่ะครับ
RUN - TIME error '-2147217900(80040e14)'"
syntax error in FROM clause
ลองนี่ดูคับ
insert into tblcutIPHC1(AN) select tblIPHC1.AN from tblIPHC1 join tblnetIPHC1 on tblIPHC1.AN = tblnetIPHC1.AN
ถ้ายังไม่ถูกก็ไม่รู้จะแก้ยังไงละอ่ะคับ
แก้ไม่ถูกอ่ะคับ ต้องลองกับดาต้าเบสจริงๆ
Private Sub Command1_Click()
Call connect
Call conntbl
Dim i As Integer
Dim sumcost As Single
With rstbl
If .State = adStateOpen Then .Close
.Open " select cost from tblIPHC "
Text2.Text = rstbl.RecordCount
For i = 1 To Text2.Text
sumcost = sumcost + .Fields("cost").Value
Next i
Text1.Text = sumcost
End With
End Sub
รบกวนช่วยดูให้ที่คับว่าผิดตรงไหน ผมลองดูแล้วไม่รวมผลให้เลยคับ
แต่ว่าจะกลายเป็นนำเฉพาะฟิลแรกมาบอกบวกกันหลายๆครั้งเท่านั้นคับ
Private Sub Command1_Click()
Call connect
Call conntbl
Dim i As Integer
Dim sumcost As Single
With rstbl
If .State = adStateOpen Then .Close
.Open " select cost from tblIPHC "
Text2.Text = rstbl.RecordCount
For i = 1 To Text2.Text
sumcost = sumcost + .Fields("cost").Value
.MoveNext
Next i
Text1.Text = sumcost
End With
-------------------------------------------
เพิ่ม movenext เข้าไปเพื่อเปลี่ยน record ด้วยครับ
End Sub
ขอบคุณคับ
ได้แล้วคับ แต่ว่าผลรวม มันจะปัดเศษ คับ ผมลองใส่ format เข้าไปแล้วคับ text1.text = format(sumcost, "#,###,##0.00") แต่ก็ยังปัดเศษอยู่ดีคับ
มีทางแก้ไหมคับ หรือว่ามีวิธีอื่นไหมที่ จะทำให้ไม่ปัดเศษ
อยากให้ข้อมูลใน MSHFlexGrid ที่ดึงขึ้นมาโชว์ ที่เป็นตัวเลข
อย่างเช่น ยอดเงิน ทำให้มีคอมม่า และ จะทศนิยม ทำไงคับ
ขอบคุณคับ
สวัสดีคะ พอดีมีเรื่องรบกวนคะ
คือว่าอยากทำโปรแกรมฝึกพิมพ์ดีด แต่ไม่รู้ว่าจะเริ่มยังไง คืออาจารย์ให้ทำโฟล์ชาร์ต,dfd,er-diagramออกมาด้วยเลยงง คือว่าจะมีการล็อกอินก่อนเข้าใช้งานด้วย คืออยากให้พี่ช่วยวิเคราะห์ระบบให้หน่อยคะ
รบกวนพี่ส่งมาตามเมล์นี้ด้วยนะค่ะpongsri_jom@hotmail.com
ขอบคุณมากๆคะ
การใส่คอมม่าและจุดทศนิยมนะครับ
ลองเอาคำสั่งนี้ไปใช้ดูครับ
Text2.Text = Format(Text1.Text, "#,##0.00")
อันนี้คือจะจัด format ตัวเลขใน text1 ให้มีคอมม่าและทศนิยม 2 ตำแหน่ง
โชว์ที่ text2
สวัสดีครับ อยากจะขอความช่วยเหลือหน่อยครับ อยากป้อนข้อมูลตัวเลขผ่านปุ่มแล้วคลิ๊ก ที่ลักษณะคล้ายเหมือนเครื่องคิดเลข ที่กดเลข 1 ก็ขึ้นเลข 1 ใน text.box อะไรประมาณเนี้ย
ใช้ประมาณนี้อ่ะคับ
ปุ่ม 1
text1.text = text1.text & "1"
ปุ่ม 2
text1.text = text1.text & "1"
อยากทราบว่า เขียน โค้ต sql ใน vb 2008 ใส่ตรงไหนคับ ช่องไหนคับหรือช่วยบอกวิธีใส่ก้อได้คับ ตัวอย่างโค๊ดขอหน่อยคับ
หวัดดีคับรบกวนหน่อยคับ
อยากเพิ่มข้อมูล โดย ให้ฟิลด์ข้อมูล ที่มีชนิดข้อมูล date/time เป็นค่าว่างได้ไหมคับ
ขอบคุณคับ
รบกวนช่วยทำโจทย์ ข้อนี้ให้ทีนะครับบ
ผมทำไม่ได้จริงๆ พยายามแล้ว
Do while...Loop
เป็นกล่องอินพุตให้กรอก
แบบ เกมส์ทายสูตรคูณ แล้วให้ป้อนเลข 1-12
จากนั้นเปนเมสเสสบ็อกโชว์ว่าเราทายถูกกี่ครั้ง แม่อะไร
จากนั้นก่จะรันแม่นั้นแสดงออกตรง Textshow.Text
คุยกะผมทางเมล์ ก็ได้ครับ
ถ้าไม่เปนการรบกวนจนเกินไป
มีเมล์ไหมครับบ
ขอบคุณมากครับบ
เอ่อ ไม่เข้าใจโจทย์เลยครับ
อธิบายละเอียดกว่านี้หน่อยอ่ะครับ
ยกตัวอย่าง input output หน่อยครับ
รบกวนหน่อยคับ
ใช่ MSHFlexGrid ในการแสดงข้อมูลคับ
วันที่ในฐานข้อมูล 03/09/2552
แต่พอมาแสดงใน MSHFlexGrid กลับกลายเป็น 03/09/2009
มีวิธีแก้ไหมคับอยากให้ใน MSHFlexGrid แสดง พ.ศ.ให้เหมือนในฐานข้อมูลคับ ต้องแก้ยังไงคับ
ขอบคุณคับ
ลองเอาโค้ดนี้ไปประยุกต์นะครับ
Public Sub GridLongDate(Grid As MSHFlexGrid, ColumnNumber As Integer)
Dim X As Long
Dim strDate As String
Dim dteDate As Date
With Grid
For X = .FixedRows To .Rows - 1
strDate = .TextMatrix(X, ColumnNumber)
dteDate = Format(strDate, "MM/DD/YYYY")
strDate = Format(dteDate, "d-mmm-yyyy")
.TextMatrix(X, ColumnNumber) = strDate
Next X
End With
End Sub
ที่มา : http://www.codeguru.com/forum/showthread.php?t=302606
สวัสดีคับ
ผมสนใจอยากเรียน vb 2008
อยากจะรู้ที่ติต่อคับช่วยส่งมาทางเมล์หน่อยนะคับ
และอยากรู้ราคาการสอนด้อยนะคับ
benz.m.t@hotmail.com
สนใจอยากเรียน vb 6.0 ค่ะ รบกวนช่วยติดต่อกลับด้วยนะค่ะ
ขอบคุณค่ะ e_noey-ka@hotmail.com ค่ะ
สวัสดีคับ ต้องการนับวันที่คับ vb6
อย่างเช่น ฟิลด์ 1 วันที่ 15/09/2552
ฟิลด์ 2 วันที่ 13/11/2552
หาว่าฟิลด์ที่ 1 กับ 2 ห่าง กันกี่วันต้องทำยังไงคับ
รบกวนด้วยนะคับ ขอบคุณคับ
ใช้ function datediff ครับ
- DateDiff("d", date1,date2)
ขอบคุณมากคับ
สวัสดีค่ะ
พี่พงกี้
พอดีหนูอยากรู้เพิ่มเติม ช่วยแอดหน่อยนะค่ะ
naynarak5555@hotmail.com
หวัดดีค่ะพี่พงกี้ หนูเพิ่งจะเข้ามาดูเว็บไซต์ของพี่เป็นครั้งแรกนะค่ะ หนูอยากเรียนค่ะ ตอนนี้หนูกำลังทำProject จบ โดยใช้โปรแกรมที่พัฒนา Visual basic 2008 ค่ะ หนูเคยใช้ 2005 มาแล้ว หนูยังทำได้ไม่ค่อยคล่องเลย เลยอยากให้พี่ช่วยดูโค้ดให้หน่อยนะค่ะ ตอนนี้ยังไม่ได้เอามาให้ดูวานพี่พงกี้แอดมาหน่อยนะค่ะ ขอบคุณมากๆค่ะ sai_495108@hotmail.com
แสดงความคิดเห็น