File zip.007 lỗi rồi, bạn kiểm tra lại nhé, thanks.
Cho mình xin link trực tiếp trên siemens được ko?
File zip.007 lỗi rồi, bạn kiểm tra lại nhé, thanks.
Cho mình xin link trực tiếp trên siemens được ko?
Học...Học nữa... Học mãi.........
Down ve duoc, nhung khi giai nen file .zip thi 5 file z01 z02 z03 z04 z05 khong tu dong noi lai, po tay.
nhờ các bạn trên diễn dàn thành thạo về wincc giup đỡ!
mình có một đoạn code nhỏ viết bằng vb, đã kiểm tra nhiều tài liệu và tham khảo các bạn đã từng làm có thể nói là không sai.nhưng khi đưa và wincc thì không xuất được thông số ra sql hay accsess được ,mình đã kết nối odbc như video hướng dẫn trên youtube của ban" thang nguyen". bạn nào đã từng làm thành công rùi thì giúp mình với mình còn gà lắm
cám ơn mọi người nhiều và đây là code
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim objConnection
Dim strConnectionString
Dim sohieucongthuc
Dim congthuc
Dim meso
Dim khoiluongdat
Dim khoiluongthuc
Dim saiso
Dim strSQL
Dim objCommand
‘strConnectionString = "Provider=MSDASQL;DSN=WINCCSQL;UID=;PWD=;"
strConnectionString ="Driver={SQL Native Client};Server= ADMIN-A5C4B5D29;Database=WINCCSQL;Trusted_Connection=yes ;"
sohieucongthuc=HMIRuntime.Tags ("sohieucongthuc").Read
meso=HMIRuntime.Tags ("meso").Read
congthuc=HMIRuntime.Tags ("congthuc").Read
khoiluongdat=HMIRuntime.Tags ("khoiluongdat").Read
khoiluongthuc=HMIRuntime.Tags ("khoiluongthuc").Read
saiso=HMIRuntime.Tags ("saiso").Read
strSQL = "INSERT INTO dbo.baocao (thoigian,sohieucongthuc,congthuc,meso,khoiluongda t,khoiluongthuc,saiso) VALUES (" & SQL_TimeString(Now)&","& HMIRuntime.Tags ("sohieucongthuc").Read &","& HMIRuntime.Tags ("congthuc").Read &","& HMIRuntime.Tags ("meso").Read &","& HMIRuntime.Tags ("khoiluongdat").Read &","& HMIRuntime.Tags ("khoiluongthuc").Read &","& HMIRuntime.Tags ("saiso").Read &");"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand.ActiveConnection = objConnection.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub
ông p oi.tôi cài ra rồi nhưng mở cái bài đã làm hay chạy khoi dong chuong trình lên là báo lỗi ...."DCOM" là sao nhỉ?
yahoo cua mjh là :[email protected]. sđt:01686559377. sms jup mjh dc hok? mjh dag lam đồ án tot nghiep nen cần dùng gấp.thank
Link download zip.002, 004, 007 bị delete
Nhờ anh em nào đã dowload được up lên giúp mình với!
Dowload bằng dcom mất mấy ngày!
Đánh dấu