Hallo mas wwn,
aku coba kodingnya tapi error nih pada saat execute
simpan / insert ke sql server, procedure simpanku
seperti dibawah ini :
Private Sub simpan()
Dim SP, critical As String
DESCRIPTION = Replace(Me.DESCRIPTION.Text, "'", "''")
SOLUTION = Replace(Me.SOLUTION.Text, "'", "''")
If CRITICAL_MACHINE.Value = 0 Then
critical = "NO"
Else
critical = "YES"
End If
START_DATE = CSqlDate(Text1, dbtSQLSERVER)
FINISH_DATE = CSqlDate(Text2, dbtSQLSERVER)
BuatKode
Set rsEquip = New ADODB.Recordset
SP = "INSERT INTO DAILY_ACTIVITIES
(DA_SYS_CODE,WO_SYS_CODE,PLANT_SYS_CODE,MACHINE_SYS_CODE,EQUIPMENT_SYS_CODE,SHIFT,START_DATE,FINISH_DATE,TOTAL_TIME_MAN_POWER,DESCRIPTION,SOLUTION,M_E_I,CRITICAL_MACHINE)
VALUES ('" & DA_SYS_CODE.Text & _
"','" & Trim(Val(WO_SYS_CODE.Text)) & _
"','" & Trim(PLANT_SYS_CODE.Text) & _
"','" & Trim(MACHINE_SYS_CODE.Text) & _
"','" & Trim(EQUIPMENT_SYS_CODE.Text) & _
"','" & SHIFT.Text & _
"','" & START_DATE & _
"','" & FINISH_DATE & _
"','" & TOTAL_TIME_MAN_POWER.Text & _
"','" & DESCRIPTION.Text & _
"','" & SOLUTION.Text & _
"','" & M_E_I.Text & _
"','" & critical & "')"
Set rsEquip = StrConnection.Execute(SP)
enab_executor
End Sub
aku debug di start_date, dan finish_date, ternyata
empty. Padahal text1 dan text2 sudah saya isi tanggal
bisa dijelasin lebih detail pemakaian koding yang mas
wawan send dibawah ini ...
thanx's
Riyan
--- Purwedi Kurniawan <[EMAIL PROTECTED]>
wrote:
> Kalau teman2 mau, coba pake kode berikut ini u.
> mengubah data tanggal/waktu
> sebelum di simpan ke database, fungsi ini akan
> otomatis mengubah format
> apapun yg kalian punya ke format yg bisa diterima
> oleh database nya.
> masukan kode ini ke bagian module.
> best regards
> [wwn]
> Public Enum DBTypeConstant
> dbtSQLSERVER = 0
> dbtACCESS = 1
> dbtMySQL = 2
> dbtORACLE = 3
> End Enum
>
> Public Function CSqlDate(ByVal vDate As Variant,
> Optional dbType As
> DBTypeConstant = dbtORACLE) As String
> 'Remove all invalid characters
> vDate = Trim(CStr(vDate))
> vDate = Replace(vDate, "#", "")
> vDate = Replace(vDate, "'", "")
> vDate = Replace(vDate, Chr(34), "")
> '--------------------------------------
> 'Convert the Date to a Double Precision
> ' for international compatability
> '--------------------------------------
> CSqlDate = ""
> 'First see in what format the data came
> ' Validate parameter
> If Not IsDate(vDate) Or IsNull(vDate) Then
> 'Maybe it is a number
> If IsNumeric(vDate) Then
> vDate = CDate(vDate)
> End If
> If Not IsDate(vDate) Then
> 'Still not a date
> Exit Function
> End If
> End If
> Select Case dbType
> Case dbtSQLSERVER, dbtORACLE
> CSqlDate = Format(vDate, "mm\/dd\/yyyy")
> CSqlDate = "'" & CSqlDate & "'"
> Case dbtMySQL
> CSqlDate = Format(vDate, "yyyy-mm-dd")
> CSqlDate = "'" & CSqlDate & "'"
> Case dbtACCESS
> CSqlDate = FormatDateTime(vDate, vbLongDate)
> 'Format by Regional Settings
> CSqlDate = "#" & CSqlDate & "#"
> End Select
> End Function
>
> Public Function CSqlDateTime(ByVal vDate As Variant,
> Optional dbType As
> DBTypeConstant = dbtORACLE) As String
> 'Remove all invalid characters
> vDate = Trim(CStr(vDate))
> vDate = Replace(vDate, "#", "")
> vDate = Replace(vDate, "'", "")
> vDate = Replace(vDate, Chr(34), "")
> '--------------------------------------
> 'Convert the Date to a Double Precision
> ' for international compatability
> '--------------------------------------
> CSqlDateTime = ""
> 'First see in what format the data came
> ' Validate parameter
> If Not IsDate(vDate) Or IsNull(vDate) Then
> 'Maybe it is a number
> If IsNumeric(vDate) Then
> vDate = CDate(vDate)
> End If
> If Not IsDate(vDate) Then
> 'Still not a date
> Exit Function
> End If
> End If
> Select Case dbType
> Case dbtSQLSERVER, dbtMySQL, dbtORACLE
> 'Format is MM/DD/??YY HH:MM:SS
> CSqlDateTime = Format(vDate, "mm\/dd\/yyyy
> hh\:mm\:ss")
> CSqlDateTime = "'" & CSqlDateTime & "'"
> Case dbtACCESS
> CSqlDateTime = FormatDateTime(vDate, vbGeneralDate)
> 'Format by Regional Settings
> CSqlDateTime = "#" & CSqlDateTime & "#"
> End Select
> End Function
>
> Public Function CSqlTime(ByVal vDate As Variant,
> Optional dbType As
> DBTypeConstant = dbtORACLE) As String
> 'Remove all invalid characters
> vDate = Trim(CStr(vDate))
> vDate = Replace(vDate, "#", "")
> vDate = Replace(vDate, "'", "")
> vDate = Replace(vDate, Chr(34), "")
> '--------------------------------------
> 'Convert the Date to a Double Precision
> ' for international compatability
> '--------------------------------------
> CSqlTime = ""
> 'First see in what format the data came
> ' Validate parameter
> If Not IsDate(vDate) Or IsNull(vDate) Then
> 'Maybe it is a number
> If IsNumeric(vDate) Then
> vDate = CDate(vDate)
> End If
> If Not IsDate(vDate) Then
> 'Still not a date
> Exit Function
> End If
> End If
> CSqlTime = Format(vDate, "hh\:mm\:ss")
> Select Case dbType
> Case dbtSQLSERVER, dbtMySQL, dbtORACLE
> 'Format is MM/DD/??YY HH:MM:SS
> CSqlTime = "'" & CSqlTime & "'"
> Case dbtACCESS
> 'Format by Regional Settings
> CSqlTime = "#" & CSqlTime & "#"
> End Select
> End Function
>
>
> On 9/13/05, Ryan Sugara <[EMAIL PROTECTED]> wrote:
> >
> > Sorry neh ikutan nimbrung, masih ngebahas masalah
> konversi date di SQL
> > Server,
> > oke rekan2, memang tdk akan ada error jika metode
> insert kita di vb
> > menggunakan format yyyy-mm-dd, nah yang bermasalah
> di SQL Servernya sendiri,
> > sekarang coba asumsikan kita insert tanggal dengan
> format indonesia (tapi
> > regional settingnya adalah english dengan format
> mm/dd/yyyy).
> > dimana textboxnya sudah kt format misal :
> Format(Tdate.text,"yyyy-mm-dd"),
> > nah sekarang kita entry tanggal 13 bulan 09 tahun
> 2005, ato entry nya
> > seperti ini 13/09/2005, kita save, tetap bisa ke
> insert ato kesimpan ke sql
> > server.
> > Nah sekarang coba rekan2 masuk ke sql server,
> cari tabel dimana field
> > datenya sudah kita insert dari VB, kemudian kita
> open tabelnya, datanya akan
> > menjadi seperti ini 09/05/2013
> > Note : ini kasusku yang sampe sekarang jadi PR
> nih, kasus ini dimana
> > regional setting o/s nya di set english dengan
> format mm/dd/yyyy, karena
> > usernya gak mau format regional settingnya di ubah
> ke format indonesia,
> > dikarenakan excelnya ada formula yang mengharuskan
> regional setting diset
> > english dengan format mm/dd/yyyy.
> > Buat rekan2 viva programmer VB
> >
> > *herlisa eka putri <[EMAIL PROTECTED]>* wrote:
> >
> > wah..makasi..
> > udah bisa..saya pake format yyyy-mm-dd
> > syukur g masalah lagi...
> > oh ya..satu lagi..
> > kalau kita memasukkan nilai melalui texbox dgn
> nilai 3:00:00(format jam)
> > dan didatabasenya pake tipe data *date*...
> > setelah dimasukkan..dan disimpan didatabase...
> > eh jadinya 1/1/1990 3:00:00(tanggal dan waktunya)
> > gmn yah kalo cuma mo nyimpan dengan nilai jamnya
> saja di databasenya....
> > sebelumnya..thx lagi yah
> >
> >
> > *Purwedi Kurniawan <[EMAIL PROTECTED]>*
> wrote:
> >
> > coba mbak herli (ato eka ato putri nih :P) masukin
> dalam medium format
> > ato long format, atau yyyy-mm-dd biasanya ga ada
> masalah.
> >
> > u. format indonesia, itu cukup di format waktu
> proses penampilan aja.
> >
> > rgds
> > [wwn]
> >
> > On 9/8/05, herlisa eka putri
> <[EMAIL PROTECTED]> wrote:
> > > saya ada instruksi untuk memasukkan nilai denagn
> format date ke data
> > > base(SQL Server 2000)
>
=== message truncated ===
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
