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
Public Function Factorial(ByVal bNum As Byte) As Long Dim I As Long If bNum <= 0 Then Exit Function Factorial = 1 For I = 1 To bNum Factorial = Factorial * I Next End Function
Try Dim Command As New OleDbCommand(SqlString, Conn) Dim reader As OleDbDataReader Conn.Open() reader = Command As.ExecuteReader() If reader.HasRows Then reader.Read()
txtProductName.Text = reader.Item("Name").ToString txtPrice.Text = reader.Item("Price").ToString txtUnit.Text = reader.Item("Unit").ToString End if
Catch ex As Exception MessageBox.Show(ex.Message) Finally If Conn.State = ConnectionState.Open Then Conn.Close() End If End Try End Sub
เพ่พง โค้ดตัวนี้อ่านว่างัยอ่ะ If Me.TxtCusID.Text.Trim() = String.Empty Then vCustomerID = "C-" & Format(GenID("Customer"), "0000") TxtCusID.Text = vCustomerID End If
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim G As Graphics = Me.CreateGraphics() OpenFileDialog1.Filter = "Image(*.jpg,*.gif)"I*.jpg;*.gif" OpenFileDialog1.FileName = "" OpenFileDialog1.ShowDialog() Picture = Image.FromFile(OpenFileDialog1.FileName) _widte = Picture.Width _heigh = Picture.Height G.DrawImage(Picture, 20, 20) End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click Dim dtAdapterGrid As SqlDataAdapter sql = "select * from Products WHERE ProductName LIKE ' % " & txtSearch.Text.Trim() & " %'" dtAdapterGrid = New SqlDataAdapter(sql, myConn) dtSet.Clear() dtAdapterGrid.Fill(dtSet, "Products") dgvStockRakcom.DataSource = dtSet.Tables("Products")
พี่พงกี้ ช่วยดู Code ให้หน่อยนะคะ ว่าถูกหรือป่าว ผิดตรงไหนช่วยบอหด้วยนะคะ คือ ปุ่ม move ซ้ายขวา ในช่อง listbox Private Sub EnableButtons() Dim i As Integer For i = Me.LstProduct1.Items.Count - 1 To 0 Step -1
'For i =0 To Me.LstProduct1.Items.Count - 1 If Me.LstProduct1.SelectedItems(i) Then Exit For
Next i btnSelect.Enabled = (i <= 0)
For i = Me.LstProduct2.l - 1 To 0 Step -1 If Me.LstProduct2.SelectedItems(i) Then Exit For
Next i btnMove.Enabled = (i >= 0)
End Sub
Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click Dim i As Integer
For i = Me.LstProduct2.Items.Count - 1 To 0 Step -1
If Me.LstProduct2.SelectedItem(i) Then Me.LstProduct1.Items.Add(LstProduct2.Items(i)) Me.LstProduct2.Items.Remove(i) End If Next i EnableButtons()
End Sub
Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click Dim i As Integer
For i = Me.LstProduct1.Items.Count - 1 To 0 Step -1 If Me.LstProduct1.Items(i) Then Me.LstProduct2.Items.Add(LstProduct1.Items(i)) Me.LstProduct1.Items.Remove(i) End If Next i EnableButtons()
ขอบคุณทุกคนที่แวะมานะครับ
ตอบลบฝากข้อความทักทายกันก่อนออกไปนะครับ
^^
ดีจ๊ะ น้องพง..
ตอบลบcomment ในส่วนการสอนก้ออธิบายเข้าใจง่ายดี แต่บางครั้งก้อรวบรัดไปหน่อย แต่คงเป็นช่วงนั้นเวลาที่ค่อนข้างจำกัดเพราะต้องเร่งส่งงาน อภัยได้จ๊ะ
PKui
อิอิ ^^
ตอบลบสวัสดีพงกี้ สอนอะไรเนี่ย คือไม่ได้เรียนด้านนี้มาอ่ะ ^^" เสียใจด้วย อ่านไม่ค่อยเข้าใจ
ตอบลบทำได้แล้วครับ เรื่องที่ปรึกษาเมื่อคืน
ตอบลบพอดีโทรไปติดต่อไม่ได้ เลยมาเม็นบอกแล้ว
กันนะครับ ขอบคุณครับ
GOD 232
อิอิ สอนดีอยู่แว้ว ไม่เชื่อถามศิษฐ์เก่าได้
ตอบลบเนาะ ~ ^^
- ผู้ที่ไม่มีพื้นฐานก็สามารถที่จะเรียนได้โดยทางเราจะปูพื้นฐานตั้งแต่เริ่มแรกจนกระทั่งทำเป็น
ตอบลบเป๊ะเลยครับ พอดีผมต้องทำ 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
ตอบลบvisual basic สร้างโปรแกรมอะไรได้บ้างครับ
ตอบลบตอนนี้ยังสอนอยู่ที่ร้านหรือเปล่าคะ พอดีบ้านอยู่แถวนั้นไม่ทราบว่าคิดค่าสอนยังไงคะ kbaeier@hotmail.com
ตอบลบพี่คะช่วยส่งรายละเอียดการสอนทั้งราคาและสถานที่มาให้ทางinu_kame@hotmail.comหน่อยนะคะขอบคุณมากๆค่ะ
ตอบลบสวัสดีคับ
ตอบลบผมอยากจะทราบการเขียนสูตรคูณและFactorial ด้วยวนลูปอ่ะคับ
ผมทำยังไงก็อทำไม่ได้
ผมจึกอยากให้พี่ช่วยหน่อยนะคับ
วันนี้วันสุดท้ายแล้วที่ต้องส่ง
ลองอันนี้ดูครับ
ตอบลบPublic Function Factorial(ByVal bNum As Byte) As Long
Dim I As Long
If bNum <= 0 Then Exit Function
Factorial = 1
For I = 1 To bNum
Factorial = Factorial * I
Next
End Function
สวัสดีคับ
ตอบลบผมสนใจอยากเรียน vb6 เพราะกำลังทำ โปรเจ็ค
อยากจะรู้ที่ติต่อคับช่วยส่งมาทางเมล์หน่อยนะคับ
และอยากรู้ราคาการสอนด้อยนะคับ
jack_NJ_@hotmail.com
สวัสดีคุณ พงกี้ ผมเขียน php สั่งพิมพ์ไ้ด้ แต่ต้องการ ให้คุณเขียน คำสั่งให้ลิ้นชักเก็บเงิน เด้ง ออกมา (คือผมจะใช้ร่วมกับ php น่ะ)
ตอบลบคุณพอเขียนให้ผมได้ไหม เรียกค่าแรงมาน่ะ
ติดต่อที่ นี่ก่อนได้ครับ sakda19@hotmail.com
081-838-3066
สวัสดีคับ
ตอบลบสวัสดีคับคุณ พงกี้ คับ ผมขอรบกวนถามพี่คับ โค๊ตในการบันทึกรูปภาพลงฐานข้อมูล Sql server 2008 โดยผมเขียนจากภาษา VB.NET ขอบคุณพี่ล่วงหน้านะครับ..
ตอบลบสวัสดีค่ะพี่พงกี้
ตอบลบหนูสนใจอยากเรียน vb6 เพราะกำลังทำ โปรเจ็คจบ
อยากจะรู้ที่ติดต่อค่ะช่วยส่งมาทางเมล์หน่อยได้ไหมค่ะ
และอยากรู้ราคาการสอนด้วยค่ะ อืม...พี่ค่ะหนูมีปัญหาอยู่ตรงที่ว่า
หนูอยู่เชียงราย แล้วพี่จะช่วยสอนยังไงได้บ้างค่ะ
P.J.lovely@hotmail.com
สวัสดีค่ะ คุณพงกี้ ขออนุญาตสอบถามว่า
ตอบลบต้องการดึงค่าจากฐานข้อมูล ดึงค่าจาก Combobox และให้ค่าอื่น ๆ ที่ตามมา
แสดงใน Textbox เช่น ดึงค่าชื่อสินค้ามา ใน Combobox และให้ จำนวนสินค้ามาแสดงใน Textbox ที่อยู่ในตารางเดียวกันและแถวเดียวกันด้วย จะต้องทำยังไงคะ Visual VB
พิรัลรัตน์
ถ้าจะกรุณา รบกวนตอบใน Email : pim000099@gmail.com
ประมาณนี้ครับ
ตอบลบPrivate Sub CmbProductID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbProductID.SelectedIndexChanged
Call LoadFromProductID()
End Sub
Private Sub LoadFromProductID()
Dim SqlString As String
Dim Conn2 As New OleDbConnection(strCon)
Dim vSavepicturePath As String
SqlString = "SELECT * "
SqlString = SqlString + "FROM Product "
SqlString = SqlString + "WHERE ProductID = '" & CmbProductID.Text & "' "
Try
Dim Command As New OleDbCommand(SqlString, Conn)
Dim reader As OleDbDataReader
Conn.Open()
reader = Command As.ExecuteReader()
If reader.HasRows Then
reader.Read()
txtProductName.Text = reader.Item("Name").ToString
txtPrice.Text = reader.Item("Price").ToString
txtUnit.Text = reader.Item("Unit").ToString
End if
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If Conn.State = ConnectionState.Open Then
Conn.Close()
End If
End Try
End Sub
สวัสดีค่ะคุณพงกี้
ตอบลบอยากทราบค่าสอน VB.net 2008 ตั้งแต่เริ่มต้น จนเขียนโปรแกรมเองได้เลย ต้องใช้เวลา และ ราคาเท่าไหร่ ค่ะ
มีคนจะเรียนด้วยประมาณ 2-3 คน อยู่แถว ฟิวเจอร์รังสิต อ่ะค่ะ
มาสอนได้ไหม?
อีเมลล์ nong_waka@hotmail.com , nong_te@yahoo.com
ตอบทาง อีเมล์ เป็นรายระเอียด ได้ป่ะค่ะ
คือตอนนี้หนูมีความสนใจและตั้งใจอยากจะเรียนเขียนโปรแกรมมาก
ตอบลบหนูอยากทราบรายละเอียดเกี่ยวกับ ภาษาที่เขียน ระยะเวลา และค่าใช้จ่ายอ่ะคะ
ว่าแพงมากมั๊ย? ช่วยบอกรายละเอียดหนูหน่อยนะคะ หนูอยากเรียนมากคะ
email : wow_kaka@hotmail.com
หวัดดีครับ
ตอบลบผมสุรพันธ์ ต้องการเรียน VB.net มากเลยครับ
ไม่ทราบว่าจะดูรายละเอียดการสอนทั้งหมดได้จากที่ไหนครับ
ผมอยู่พระประแดง สามารถไปบางปะกอกได้ครับ
ตอนนี้ว่างทุกวัน
รบกวนแจ้งด้วยนะครับ
suributr@gmail.com
VB.net สามารถเขียนโปรแกรมจัดการร้านอาหารได้มั้ยครับ ถ้าเรียนราคาประมาณเท่าไหร่คับ
ตอบลบตอบ - โปรแกรมจัดการร้านอาหาร
ตอบลบสามารถใช้ vb.net เขียนได้ครับ
ราคานี่ต้องโทรมาคุยกันดูครับ
เพราะผมจะสอนตัวๆ ระยะเวลาเรียนมันจะขึ้นอยุ่กับผู้เรียนอ่ะครับ
ว่าพื้นฐานเป็นอย่างไร การเรียนรู้เป็นอย่างไร
โปรแกรมที่จะทำ ยาก มากน้อยแค่ไหน
ก็ลองโทรมาคุยรายละเอียดกันดูก่อนได้ครับ
เรียนไม่เรียนไม่เป็นไร
0866771926
พงครับ
อยากเรียน advance access ไม่ทราบมีสอนไหมครับ เรียนตัวต่อตัว คิดยังไงครับ อยู่ดอนเมืองครับ ติดต่อ 0819334556
ตอบลบสวสดีค่ะพี่พงกี้ ขออนุญาติเรียกพี่นะค่ะ หนูชื่อ นา
ตอบลบคือนากำลังเขียนโปรแกรมการคำนวณค่าอาหาร โดยแสดงรายการด้วย
Combobox ค่ะ นา รับรายการมาใส่ Listbox ได้แล้ว แต่ติดตรงที่
ถ้าลูกค้าเลือกรายการเดียวแต่สั่ง 2 ชิ้น จะทำยังงัยดีค่ะ
ถ้าจะใส่จำนวนใส่ได้ที่ไหนค่ะ งงไปหมดเลยคะ
E-mail nantidafa@hotmail.com
ตอบลบE-mail นาเองค่ะ
ขอบคุณล่วงหน้านะค่ะพี่พงกี้ที่ให้คำปรึกษา
ก็ใส่ textbox เพื่อรับจำนวนที่ลูกค้าสั่งอีกช่องนึงก็น่าจะได้ครับ
ตอบลบสวัสดีค่ะ มีคำถามอีกแล้ว
ตอบลบเมื่อเราใส่ MessageBox ลงไปแล้วพอกด ok ข้อมูลไม่หายทำงัยดีค่ะ
ช่วยดูโค้ดให้หน่อยค่ะว่าถูกปะ ลองทำดูแล้วข้อมูลก็ไม่หาย
MessageBox.Show("คุณไม่ได้เลือกรุ่นรถยนต์ กรุณาเลือกรุ่นรถยนต์ด้วยคะ", "แจ้งข้อมูลผิดพลาด", MessageBoxButtons.OK)
Label13.Text = ""
Label16.Text = ""
Label19.Text = ""
Label22.Text = ""
Label25.Text = ""
Label33.Text = ""
Label34.Text = ""
Label35.Text = ""
Label45.Text = ""
Label36.Text = ""
Label8.Text = ""
Label40.Text = ""
Label32.Text = ""
Label42.Text = ""
Label30.Text = ""
Label44.Text = ""
โค้ดที่เขียนมา
ตอบลบการทำงานนี้คือ โชว์ messegebox ขึ้นมาก่อน
แล้วก็ลบข้อมูลใน label ต่างๆทิ้งไป ก็น่าจะเขียนถูกแล้วครับ
ส่วนเรื่องกดแล้วไม่ยอมล้างข้อมูลนี่
ต้องดูหลายอย่างคับ ว่า error ตรงอื่นมั้ย
หรือว่ายังไง หรือว่า process มันไม่ตรงอย่างที่อยากเขียนหรือยังไงอ่ะครับ
ขอบคุณค่ะ สำหรับคำปรึกษา
ตอบลบจุดอื่นแก้ได้แล้วเหลือแต่ ปุม Clear ค่ะ
มันติดตรงที่ว่า พอกดปุม Clear แล้ว มันก็Clear ให้นะแต่ติด
error ตรง ListBox1.Items.Clear(), ListBox2.Items.Clear()
โค้ดที่เขียนไปก็น่าจะถูกแล้ว
ขอบคุณอีกครั้งนะค่ะ
ขอบคุณสำหรับคำปรึกษาค่ะ
ตอบลบคือ... ปุม Clear นะค่ะ พอกดมันก็ Clear ให้นะค่ะ แต่พอ Clear เสร็จ ดันติด erorr สิค่ะติดที่
ListBox1.Items.Clear()
ListBox2.Items.Clear()
เขียนโค้ดน่าจะถูกแล้วแต่ทำไม่ถีงติดก็ไม่รู้ งานนี้เหลือจุดเดียวนี้เหละ
ดีคร๊า มีเรื่องรบกวนให้ช่วยเกี่ยวกับ VB6 อ่าค่ะ
ตอบลบสวัสดีครับ มีเรื่องอยากปรึกษาหน่อยครับ
ตอบลบคือจะเขียนโปรแกรมส่งเมลล์อะครับ
ประมาณว่า เขียนข้อความลงไปแล้วกดส่ง ข้อความก็จะถูกส่งไปยังเมลล์
ที่เรากำหนดไว้อะครับ
ช่วยแนะนำทีครับ
ขอบคุณครับ
สวัสดีครับ ผมจะทำโปรเจค ส่งอาจารย์ คือแบบว่าส่งข้อความจากเครื่องแม่ไปยังเครื่องลูกครับ แบบว่าเป็นคำเตือนสำหรับผู้ที่เล่นเกมขณะทำการสอนอยู่ครับ
ตอบลบขอบคุณครับ
สวัสดีค่ะพอดีหนุมีเรื่องให้ช่วยเกี่ยวกับ VB6 ค่ะ
ตอบลบพอดีหนูทำระบบขายและต้องมีการเตือนสต๊อกค่ะ
แล้วหนูยังทำการเตือนสต๊อกไม้ได้อ่ะค่ะหนูจะต้องเอาโค๊ดไปไว้ตรงไหนค่ะ
และขอคำแนะนำเกี่ยวกับโค้ดหรือขอตัวอย่างโค้ดหน่อยยได้ไหมค่ะ
ขอบคุณล่วงหน้านะค่ะ
เคยมีพื้นฐานแล้วคะ แต่ลืม ตอนนี้สนใจอยากรื้อฟื้น เผื่อจะช่วยให้การทำงานง่ายขึ้น สะดวกขึ้น
ตอบลบคิดค่าเรียนยังไงคะ ขอราคาหน่อยนะคะ ปกติไม่ได้พักกรุงเทพ ถ้ามีแบบรวบรัด เป็นเร็วช่วยแนะนำนะคะ จะเข้าบางกอก 18 กันยานี้จะได้วางแผนได้ hone79@hotmail.com
อยากทราบว่า การเขียนโปรแกรมvb สามารถกำหนดช่วงสูตรคูณที่ใช้ในการคำนวณได้
ตอบลบโปรแกรมคำนวณสูตรคูณ
แม่สูตรคูณเริ่มต้น --------
แม่สูตรคูณสุดท้าย --------
อ่า งงคำถามอ่ะครับ
ตอบลบแม่สูตรคูณ ยังไงครับ
input คือ อะไร แล้ว output คืออะไร
^^
ตอบลบวิธีการตัดคำตัวอักษร และนับตัวอักษร โดยใช้ visual basic 2008
ตอบลบเช่น นางสาวกมลวรรณ ต้องการนับว่ามีกี่ตัวอักษรต้องทำอย่างไร
และการตัดคำซ้ายไปขวาตัก 4 คำ จากขาวไปซ้าย ตัด 4 คำ
นับความยาวใช้ string.length ครับ
ตอบลบเช่น "นางสาวกมลวรรณ".length
a.length
ส่วนการตัดคำใช้ mid(string,start,length) ครับ
เช่น mid("the boy",2,3) จะได้ "he "
อยากทราบราคาการสอนเขียน vb อะครับ และก็เรียนที่ไหนครับ พอดีจะทำโปรเจคครับ
ตอบลบen_jeep@hotmail.com
อยากเรียนเขียนโปรแกรม vb6 ครับ ทีไหนสอนบ้างครับพอดีผมอยู่ชลบุรีครับ
ตอบลบprawet.s@hotmail.com
อยากทราบวิธีการเขียนโค๊ดเพื่อให้ระบบรันตัวเลขแสดงใน textBox โดยอัตโนมัติ โดยให้รันต่อจากเลขที่มีอยู่แล้วในฐานข้อมูล
ตอบลบต้องเขียนโค๊ดประมาณไหนค่ะ
ลองเอา code ตัวนี้ไปประยุกต์ใช้ดูนะครับ
ตอบลบPrivate Function GenVoucherID()
Dim GenID As Long
Dim vSQL As String
Dim LoadCmn As New OleDbCommand
Dim reader As OleDbDataReader
vSQL = "SELECT isnull(max( VoucherNo),0) AS ID "
vSQL = vSQL & "FROM SaleHdr "
LoadCmn.Connection = Conn
LoadCmn.CommandText = vSQL
reader = LoadCmn.ExecuteReader
If reader.HasRows Then
reader.Read()
GenID = Convert.ToDecimal(reader.Item("ID").ToString) + 1
Else
GenID = 1
End If
Return GenID
End Function
ลบกวนขอโค๊ด ที่ทำให้คีย์บอร์ด กดเองได้ไหมครับ หลักการ การทำงาน เหมือนโปรแกรม Macrogamer อะครับ คือที่ผมทดลองเขียนดู มันสั่งให้โปรแกรม คีย์ได้แต่ แท็ก อะครับ ผมอยากให้ คำสั่งมันสั่งให้ คีย์บอร์ด กดปุ่ม อาจจะฟังดู งงๆ ลองดูในโปรแกรม Macrogamer ดูครับ ตอนนี้ยังเปิดสอนอยู่รึป่าวครับ
ตอบลบรบกวนติดต่อกลับ ขอสอบถาม ค่าเรียน ขั้นพื้นฐาน
081-564-1817
E-mail :: v-master@admin.in.th
izard_zeed@hotmail.com
เพ่พง โค้ดตัวนี้อ่านว่างัยอ่ะ
ตอบลบIf Me.TxtCusID.Text.Trim() = String.Empty Then
vCustomerID = "C-" & Format(GenID("Customer"), "0000")
TxtCusID.Text = vCustomerID
End If
ขอโค้ดสั่งค้นหากับสั่งพิมพ์รายงานหน่อยได้มั้ยค๊ะ..
ตอบลบเพราะเหลืออีกแค่ 2 ตัวนี้โปรแกรมก็เสร็จละค่ะ...
หาไม่เจอ T^T
ดีค่ะ มีเรื่องรบกวนค่ะ หาทางแก้อยู่หลายวันแล้วไม่ได้เลย
ตอบลบคือ ใช้ mshflexgrid ค่ะในการแสดงข้อมูล แล้วเมื่อลบข้อมูลบางแถวออก แต่พอเพิ่มเข้าไปใหม่มันไม่ยอมเพิ่มให้ค่ะ แก้ยังไงดีค่ะ หาจาก google ก้ทำตามแล้วยังไม่ได้ รบกวนหน่อยค่ะ
คุณพงกี๊
ตอบลบกรุณาช่วยเด็กคนหนึ่ง คุณพ่อส่งเขาไปเรียนคอมพิวเตอร์ที่อินเดียหลักสูตร3ปี ตอนนี้เขาเพิ่งกลับมาเพราะสอบเทอมสุดท้ายแล้ว ปรากฏว่าติดซ่อม15 ตัว เขามาสารภาพกับพ่อว่าเขาไม่ชอบ ต้องการย้ายสาขาที่เรียน พ่อเขาตัดสินใจจะให้เขาไปเรียนที่อเมริกาโดยอยู่และทำงานกับเพื่อนพ่อ
พี่ในฐานะแม่ ยังไม่เชื่อว่าลูกไม่ชอบ แต่เขาเรียนไม่ทันและไม่เข้าใจมากกว่า เพราะเขาไม่มีพื้นฐานคอม แต่ต้องถูกส่งไปเรียนคอมที่เรียนเป็นภาษาอังกฤษ ขนาดเรียนที่ไทยเป็นภาษาไทยยังยาก นี่เป็นภาษาอังกฤษถ้าไม่เข้าใจยิ่งยากใหญ่
พี่คิดว่าถ้าเขาได้ผู้ที่อธิบายโครงสร้าง(ภาพรวมให้กับเขา) พี่แน่ใจว่าเขาน่าจะเรียนต่อได้
พี่อยากให้คุณช่วยเป็นครูแนะแนวและทดสอบเขาได้ไหมค๊ะ ให้เขารู้ตัวเองว่าชอบหรือไม่ ก่อนตัดสินใจผิดรอบ2 ค่าใช้จ่ายในฐานะที่ปรึกษาพี่ยินดีชำระค๊ะ
พี่สุ 086-9136012
ขอบคุณมากนะค๊ะ ที่สละเวลาคุยแนะนำลูกชาย เขากำลังคิดและตัดสินใจว่า
ตอบลบเขาไม่ชอบคอมพิวเตอร์จริงหรือ หรือเพราะเขาไม่เข้าใจ ทำให้เขาไม่อยากเรียน หลังจากเขากลับจากสิงคโปร์ ประมาณวันที่13 ทุกอย่างน่าจะชัดเจนมากขึ้น
ขอขอบคุณอีกครั้งนะค๊ะ ครูใจดีและใจเย็นมากจริงๆ สิ่งดีๆที่ครูมอบให้กับเด็กคนหนึ่ง จะกลับคืนเป็นความสำเร็จในสิ่งที่คณุคิดและปรารถนาค๊ะ
สุคนธ์รัตน์
ยินดีมากครับ พี่สุ
ตอบลบ^^
รบกวนหน่อยคับ ผมเพิ่งเรียน พี่คับทำโปรแกรมแม่สูตรคูณ โดยใช้คำสั่ง Do while ใน VB ทำยังไงอ่าคับ
ตอบลบตามนี้เลยครับ
ตอบลบhttp://wichan.exteen.com/20060906/by-visual-basic-6-0
พี่คะช่วยเขียนโปรมแกรมนี้ให้ค่ะอาจารสั่งแต่ทำไม่เปนช่วยหน่อยได้ไหมคะขอบคุนล่วงหน้าค่ะ
ตอบลบช่วยเขียนโปรแกรมvb เพื่อรับหมายเลขบัตรเครดิต ชื่อ นามสกุลเจ้าของบัตร และราคาที่ซื้อทางแป้นพิมพ์ จากนั้นให้คำนวนและแสดงส่วนลดทางจอภาพ ตามเงื่อนไขดังนี้
ถ้าซื้อสินค้าครบ 15000-24999 ลด 450
"..................."25000-54999 ลด 850
"...................."55000-84999 ลด 3000
"....................."85000-129999 ลด 4500
"....................."130000บาทขึ้นไป ลด 7000
จากนั้นให้คำนวณและแสดงจำนวนเงินที่ต้องจ่ายทางจอภาพโดยคำนวณเงินที่ต้องจ่าย=ราคาสินค้า-ส่วนลด ช่วยหน่อยนะค่ะ
ผมอยากเรียนด้วยต้องทำไงเหรอครับ singto_newdance@hotmail.com
ตอบลบคือเพิ่งผ่านมาครับเห็นแล้วสนใจมากๆครับ ผมชื่อสิงโตครับ
ตอบลบจะเรียนไปเพื่อใช้กับ ไมโครคอนโทรลเลอร์น่ะครับ
ตอบลบเอาเวลามา ลบกันทำยังไงค่ะ
ตอบลบลบกันยังไงอ่าคับ แบบว่า คำถามสั้นมากเลยครับ ตอบไม่ถูก
ตอบลบPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ตอบลบDim G As Graphics = Me.CreateGraphics()
OpenFileDialog1.Filter = "Image(*.jpg,*.gif)"I*.jpg;*.gif"
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
Picture = Image.FromFile(OpenFileDialog1.FileName)
_widte = Picture.Width
_heigh = Picture.Height
G.DrawImage(Picture, 20, 20)
End Sub
ตรง "Image(*.jpg,*.gif)"I*.jpg;*.gif" มันผิดเพราะอะไรค่ะ
ต้องยังงี้ครับ
ตอบลบ"Image Files (*.JPG,*.GIF)|*.jpg;*.gif"
ต้องเป็น | ครับ ไม่ใช่ I
รบกวนถามนิดนึงคับ:
ตอบลบคือว่า ผมต้องการค้นหาข้อมูลใน ProductName จากคอลัม SQL โดยการพิมพ์คำค้นหาลงใน Texboxแล้วกดปุ่ม Botton จากที่สอบถามอาจารย์ผู้สอน ท่านให้ Code มาประมาณนี้ แต่พอพิมพ์ชื่อเข้าไปกลับไม่ขึ้นอะไรเลย รบกวนดู Code ให้ด้วยคับ ว่าผิดตรงไหน
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Dim dtAdapterGrid As SqlDataAdapter
sql = "select * from Products WHERE ProductName LIKE ' % " & txtSearch.Text.Trim() & " %'"
dtAdapterGrid = New SqlDataAdapter(sql, myConn)
dtSet.Clear()
dtAdapterGrid.Fill(dtSet, "Products")
dgvStockRakcom.DataSource = dtSet.Tables("Products")
ขอบคุณล่วงหน้าคับ....(รักษ์)
ใน sql ที่เขียนมันมีช่องว่างอยู่คับ
ตอบลบเอาช่องว่างออกตรง like
ยังงี้ครับ LIKE '%" & txtSearch.Text.Trim() & "%'"
สนใจอยากจะเรียนเพราะต้องทำโปรเจคจบปีนี้ แต่อยากรู้ว่าระยะเวลาที่ใช้เรียนนานมั้ยกว่าจะเขียนได้
ตอบลบสนใจอยากจะเรียนเพราะต้องทำโปรเจคจบปีนี้ แต่อยากรู้ว่าระยะเวลาที่ใช้เรียนนานมั้ยกว่าจะเขียนได้
ตอบลบตอบ - ระยะเวลาที่ใช้ขึ้นกับว่ามีพื้นฐานมากน้อยขนาดไหนอ่ะครับ ถ้าเรียนเพื่อทำโปรเจคโดยตรง ลองเอาตัวโปรเจคมาคุยกันก่อนอ่ะครับว่ายากง่ายขนาดไหน พี่จะได้แนะนำถูก โทรมาคุยกันดูครับ 0866771926
พี่ค่ะ อยากได้ โค๊ด แม่สูตรคูณ2-12 ค่ะ โปรแกรม visual Basic
ลบสนใจอยากเรียนเขียนโปรแกรมค่ะ แต่ว่าอยู่เชียงใหม่
ตอบลบตัวโปรแกรมจะนำมาใช้จริง ส่วนรายละเอียด อยากจะส่งให้ทางอีเมลล์คุณพง ว่าราคาค่าเรียนจะอยู่ที่เท่าไหร่ รบกวนขออีเมลล์ด้วย
รบกวนขอโค้ด VB2008 เพิ่ม ลบ แก้ไข บันทึก ข้อมูลลงใน Database หน่อยค่ะ พอดีกำลังศึกษา ขอบคุณค่ะ
ตอบลบปล. ขอตัวอย่างด้วยน่ะค่ะ
- ตอบคุณ เปรมประชาขนส่ง ครับ
ตอบลบลอง email รายละเอียดโปรแกรมมาให้หน่อยครับ เดี๋ยวผมตีราคาให้
pongory@hotmail.com
ขอเบอร์ติดต่อกลับด้วยนะครับ
คุณพงกี้ครับ พอดีผมเป็นนักศึกษาที่ทำโปรเจคจบครับผมอยากทราบโค้ดคำนวณเกี่ยวกับวันหมดอายุครับ เช่น เมื่อสมาชิกสมัครสมาชิกแล้วนับไปอีก 1 ปี และอีก 4 เดือน ให้ระบบแจ้งว่าบัตรสมาชิกหมดอายุวันที่เท่าใดครับ
ตอบลบขอบคุณครับ
สวัสดีค่ะพี่พงกี้ ช่วยหนูที หนูจะเขียนโปรแกรม อพาทเม้น หนูเขียนหน่าสัญญาเช่าค่ะ แต่ไม่รู้ว่าโค้ตรันรหัสเลขที่สัญญา แล้วก้อให้เลือกเลขที่ห้องในการทำใบสัญญาเค้าเขียนโค้ตกันยังงัยค่ะ หนูชื่อออม
ตอบลบรบกวนช่วยที่น่ะค่ะ
สวัสดีครับพี่พงกี้คือผม งง code แบบ มีปุ่ม 2ปุ่ม ปุ่มที่ 2 Enabled=false
ตอบลบแล้วพอกดปุ่มที่ 1 Enabled ของปุ่มที่ 2 จะเท่ากับ True
ช่วยบอก code ที่นะครับ
ใส่คำสั่งใน event ปุ่ม1_click คับ
ตอบลบใส่คำสั่งเซตค่าปุ่ม 2 ไปเลย
ปุ่ม2.enabled = true
แค่นั้นเองครับ
พี่พง คือ ผม กำลัง จะทำโปรเจค จบ อะ แล้ว อาจารย์เขาให้ใช้ vb6.0 เขียน
ตอบลบโปรแกรมผม เป็นโปรแกรมจัดเรียงคิวลำดับก่อนหลังอะคับเกี่ยวกับห้องซ้อมดนตรีอะคับ แล้วพื้นฐานผมก็ยังไม่มีอะไรเลย เพราะ ตั้งแต่น้ำท่วมที่รร เลยสอนแบบ รวบรัด ให้อะคับ
ไม่ทราบว่ามันจะเขียนได้ไหม เขากำหนด ส่ง 13 กุมพา นี่แล้วผม ยังคิดไม่ออกเลย T T
ลองโทรมาปรึกษาด่วนเลยครับ
ตอบลบเดี๋ยวยิ่งใกล้กว่านี้จะ ยิ่งไม่ทันเข้าไปใหญ๋ครับ
ทำข้อมูลที่รันออกมาอยู่ในTextbox
ตอบลบสวัสดีค่ะ พี่พง
ตอบลบรบกวนหน่อยค่ะ
หนูเรียนรอบวันอาทิตย์ที่วิบุลย์ท่าพระ หนูจะจบ31มีนาคม2555 อาจารย์ให้เขียนโปรแกรม แต่หนูมีพื้นฐานน้อยมากค่ะ อาจารย์ให้ใช้VB6.0+ACCESSค่ะ พี่ช่วยสอนหนูได้ไหมค่ะ หนูต้องทำโปรเจควางบิลรับเช็คค่ะ ซึ่งหนูมีข้อมูลตรงนี้อยู่แล้วพอดีมันเป็นงานที่ทำอยู่อ่ะค่ะ แต่หนูไม่มีพื้นฐานการเขียนโปรแกรมเลยค่ะ หนูอยากโทรไปหาพี่ แต่หนูเลิกงานประมาณ19.00น. กลัวจะรบกวนนะค่ะ ไม่ทราบว่าโทรได้ถึงกี่โมงอ่ะค่ะ
สวัสดีคับ พี่พงกี้ ผมมีเรื่องรบกวนถามไรนิด คับ
ตอบลบผมอยากให้โปรแกรมนับจำนวนคนเดินผ่านเซนเซอร์
ตอนนี้มันส่งค่าเป็นตัวเลขขึ้นมา ทุกๆครั้งที่ผ่านมันจะขึ้น1
ผมอยากให้มัน นับคนถัดไป เป็น 2 3 4 5.... นับไปเรื่อย คับ
ไม่ทราบว่าต้องใช้คำสั่ง หรือ โค๊ด อะไรอ่ะคับ
ไงก็รบกวนพี่ให้ความรู้ทีคับ
perapong3D@hotmail.com
สวัสดีครับ พี่ ตอนนี้ผมทำโปรเจทจบ เกี่ยวกับระบบจัดการฐานข้อมูลคลีนิค โดยใช้ C# VB 2008 ส่วน Databass ใช้ SQL server 2008 R2 ผมยังเขียนโปรแกรมไม่เป็นครับ อยากให้พี่ช่วยสอนทำโปรเจทหน่อย พี่ช่วยส่งรายละเอียดและค่าใช้จ่ายมาให้หน่อยครับ sandeedox@hotmail.com ขอเบอร์โทรติดต่อด้วยครับโทรได้ประมาณกี่โมง ด้วยนะครับขอบคุณครับ
ตอบลบพี่พง เขียนโปรแกรมแบบ stand alone กับ แบบCliant/server มันเขียนต่างกันมั้ยพี่ ขอบคุณครับ
ตอบลบพี่คะ ยังรับสอนอยู่รึป่าวคะ หนูสนใจอยากให้พี่ช่วยสอน แต่หนูอยากทราบเรื่องค่าใช้จ่ายก่อนได้มั้ยคะ หนูทำโปรเจคธนาคารโรงเรียน +ธนาคารขยะคะ ภายในหนึ่งเดือนจะเสร็จทันมั้ยคะ รบกวนพี่หน่อยนะคะ janzuary@hotmail.com
ตอบลบ555+
ตอบลบทัมมัย โปรแกรม นี้ มัน ชั่ง เรียน ยาก เรียน เย็น จริงงง ๆๆๆ เลย
ตอบลบเซ็งงงง กับ VB จัง เลย คะ
โปรแกรม mp3 จะให้มันอ่านเพลงเวลาaddเข้า เขียนยังไง
ตอบลบการเช่าหนังสือ จะต้องมีระยะกำหนดเวลาคืน
ตอบลบอยากทราบว่า ต้องการรู้ว่าเช่าไปกีวัน โดยเอาวันที่ยืม กับวันที่คืนมา
ลบกันต้องทำยังงัยค่ะ ใน vb ค่ะ จะได้คิดค่าปรับเกินกำหนดได้อ่ะค่ะ
mp3 player ลองทำตาม vdo นี้ดูนะครับ http://www.youtube.com/watch?v=v1vL2mXOhgM
ตอบลบส่วนฟังก์ชั่นหาจำนวนวันที่ต่างกันใช้ datediff นะครับ
ลองดู http://msdn.microsoft.com/en-us/library/b5xbyt6f(v=vs.80).aspx ครับ
อยากทราบ การดึงข้อมูลจากฐานข้อมูล sql โดยเลือกจาก combobox แล้วให้ข้อมูลโชว์ใน Textbox จะทำยังงัยค่ะ vb 2008
ตอบลบเอ่อพี่ครับถ้าอยกเรียนบ้างแต่ผมกำลังใช vb2010 พี่ยังจะสอนได้อยู่มั้ยแต่ผมมีพื้นน้อยมากได้มั้งเนอะแค่สลับที่ไอคอน และค่าสอนแพงมั้ยอะ
ตอบลบตอบคุณ attapon chaiyacot นะครับ
ตอบลบตอนนี้ยังรับสอนอยู่นะครับ ถ้าเป็นตัวต่อตัว
แต่ว่าจะได้เฉพาะวันเสาร์-อาทิตย์ กับ วันธรรมดาตอนเย็น
เดือนนีำ้กำลังทำคอร์สตัวใหม่อยู่เลย
เป็นระบบเรียนรู้ได้ด้วยตัวเอง ตั้งแต่ทำอะไรไม่เป็นเลย
สำหรับผู้เริ่มต้นโดยเฉพาะ
คิดว่าเดือนหน้าน่าจะเริ่มออกมาได้ใช้จริง
จะมีช่วงเดโมให้ได้ทดลองใช้กันฟรีด้วย
แล้วพบกันครับ
ถ้าสนใจรายละเอียดการเรียนเพิ่มเติม โทรมาสอบถามได้เลยครับ
0866771926 นะครับ
พี่พงกี้ คะ ช่วยหนูนิดนึงนะคะ ไม่ค่อยเก่ง vb เท่าไหร่ อยากทราบ การดึงข้อมูลจากฐานข้อมูล sql โดยเลือกจาก combobox แล้วให้ข้อมูลโชว์ใน Textboxอ่ะค่ะ
ตอบลบvb 2005 อ่ะคะ ช่วยหน่อยนะคะ
การดึงข้อมูลจาก database มาใส่ใน combobox ดูจาก link นี้เลยครับ
ตอบลบhttp://greatfriends.biz/webboards/msg.asp?id=117131
เปลี่ยน connection string จาก access เป็น sql เอานะครับ
ขอบคุณค่ะ
ตอบลบเวลา debug อยากให้มันรันทีละหน้าในหน้า Code อ่ะคะ มันชอบไปรันที่หน้า Disassembly อ่ะค่ะ
ตอบลบไม่แน่ใจว่าหน้า disassembly มาเกี่ยวอะไรกับ debug นะครับ
ตอบลบแต่ลองดู link นี้ละกันครับ
http://bytes.com/topic/visual-basic-net/answers/370943-disable-disassembly
พี่พงกี้คะ ใน Listbox ต้องการทำเป็นแบบ multi Select โดย มีปุ่มเลือกซ้ายขวา ทำอย่างไงอ่ะคะ รบกวน หน่อยนะคะ vb 2008 ค่ะ
ตอบลบเซต porperties selection mode ให้เป็น multi นะครับ
ตอบลบพี่พงกี้ ช่วยดู Code ให้หน่อยนะคะ ว่าถูกหรือป่าว ผิดตรงไหนช่วยบอหด้วยนะคะ คือ ปุ่ม move ซ้ายขวา ในช่อง listbox
ตอบลบPrivate Sub EnableButtons()
Dim i As Integer
For i = Me.LstProduct1.Items.Count - 1 To 0 Step -1
'For i =0 To Me.LstProduct1.Items.Count - 1
If Me.LstProduct1.SelectedItems(i) Then Exit For
Next i
btnSelect.Enabled = (i <= 0)
For i = Me.LstProduct2.l - 1 To 0 Step -1
If Me.LstProduct2.SelectedItems(i) Then Exit For
Next i
btnMove.Enabled = (i >= 0)
End Sub
Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
Dim i As Integer
For i = Me.LstProduct2.Items.Count - 1 To 0 Step -1
If Me.LstProduct2.SelectedItem(i) Then
Me.LstProduct1.Items.Add(LstProduct2.Items(i))
Me.LstProduct2.Items.Remove(i)
End If
Next i
EnableButtons()
End Sub
Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
Dim i As Integer
For i = Me.LstProduct1.Items.Count - 1 To 0 Step -1
If Me.LstProduct1.Items(i) Then
Me.LstProduct2.Items.Add(LstProduct1.Items(i))
Me.LstProduct1.Items.Remove(i)
End If
Next i
EnableButtons()
End Sub
ตอบคุณ nitty นะครับ
ตอบลบคือว่าถ้าถามว่าถูกมั้ย
อันนี้ผมตอบไม่ได้อ่ะคับ
มันอยู่ที่ว่าเราต้องการทำอะไร แล้วรันแล้วผลมันออกมาตามที่ต้องการมั้ยอ่ะคับ
แล้วโค้ดมัน error มั้ยคับ
มันไม่ error อ่ะค้ะ แต่พอกดปุ่ม move ซ้ายขวา ไม่ได้เลยอ่ะค่ะ งง เลย ^^
ตอบลบกดปุ่ม แล้วข้อมูลไม่ขึ้นที่ listbox ที่ 2 อ่ะค่ะ
ตอบลบอ่อ พี่ก็งงว่า ปุ่มซ้าย ขวาคืออะไร
ตอบลบคือมี listbox 2 อันใช่มั้ยครับ
แล้วกดเลือกเพื่อดึงข้อมูลจาก listbox อันนึงไปอีกอันใช่มั้ยคับ
ลองใช้ code นี้ดูครับ
ตอบลบPrivate Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
For Each oItem In LstProduct1.SelectedItems
Me.LstProduct2.Items.Add(oItem)
Next
For i = 0 To Me.LstProduct1.Items.Count - 1
LstProduct1.Items.Remove(LstProduct1.SelectedItem)
Next
End Sub
ใช่ค่ะ ขอบคุนพี่พงกี้ มากเลย
ตอบลบมัน error ว่า Conversion from type 'DataRowView' to type 'String' is not valid อ่ะค่ีะ
ตอบลบต้องไปไล่โค้ดดูแล้วอ่ะคับว่า error บรรทัดไหน ยังไง
ตอบลบแอดเอมพี่มาก็ได้นะครับ
pongory@hotmail.com
ค่ะ ค้่ะ ^^
ตอบลบถ้าต้องการเลือกข้อมูลที่ Combobox ดึงข้อมูลมาโชว์ที่ listbox ทำไงอ่ะคะ รบกวนหน่อยนะคะ
ตอบลบวิธีสร้างสูตรคูณ+รูปภาพ
ตอบลบทำหั้ยหน่อยสิ แข่งทักษะพรุ่งนี้แล้ว