PLEASE HELP!!!!!! VB6.0

[sergios]

γεια σας παιδια εχω παλι ενα μικρο προβλιματακι..........

βρισκομαι σε σθνεχη λουπα δηλαδη το προγραμμα μοθ ποτε δεν κανει break!!!

το προβλιμα ειναι οτι οταν ι χριστης παταει το χ (βθττον close of windows) το προγραμμα κλεινει στιγμιαια και ξανα ανοιγει μονο του.,δηλαδη δεν τερματιζει.......και τερματιζει μονο με την εντολη end!!!!!!

μπορειτε να μοθ δωσετε λιγο τα φωτα σας ωστε να ανταποκρινετε και στο χ ???

ευχαριστω θερμα

[sergios]

γεια σας!

εχω το εξης παλι......

χρησιμοποω το adodc1, και θελω να βρω μια καταχωρηση by row και να την τροποποιησω!!!!

προσπαθω να χρισιμοποιησω τη εντολη adodc1.recordset.find και τα λοιπα

και μου βγαζει λαθος 3001!! καμια ιδεα?

[Jaco]

Στο object adodc1 χρησιμοποιείς καθόλου το property "CommandType" ή καλείς την execute με option το "adCmdTableDirect"...?

[sergios]

χρησημοποιω το CommandType=2 acmdTable

[Jaco]

Δες εδώ...

[sergios]

καλημερα!!!!

προεκιψε παλι ενα αχακτηρηστο προβλημα.........

οταν φτιαχνω setup.exe μεσω package & Deployment Wizard στα ΧΡ τρεχοθν ολα οκ!!!

οταν ωμος προσπαθω να τρεξω το setup.exe στα win7 η Vista το εγκαθιστα κανονικα με ενα ελατωμα...δεν μπορουν να γινουν registry των dll και ocx..το κανω χειροκινιτα!!!

Οταν ωμος παω να τρεξω το εγκατεστημενο προγραμμα μου βγαζει στα win αυτα "Unexpected error" και δεν τρεχει το προγραμμα.!!!!

Εχω δοκιμασει και windows instaler inno 5.0.3 το ιδιο λαθος μου βγαζει...

Δωστε μου καμια ιδεα στην λυση του προβληματος μου....ευχαριστω εκ των προτερων!!!

[Jaco]

Γιατί ασχολείσαι ακόμα με το p&d της vb... ξέχασέ τον, έχει φτιαχτεί για πριν από 15 χρόνια... Βάλε το Inno Setup (κατέβασε την έκδοση από το link που έχει και τον preprocessor), ρίξε διάβασμα από το help του και μετά κάνε παπάδες...

μην χαραμίζεσαι με τον p&d, ούτε για τα βασικά...

[sergios]

βρηκα την λυση!!!!

δεν ξερω για πιο λογο αλλα εαν το roject ειναι φτιαγμενο στα ΧΡ στα vista η win7 δεν προκειτε να τρεξει!!!

η λυση ειναι να κανεις compile το project στα vista και επειτα inno setup για δημιουργια setup.exe

[Jaco]

Το compilation δεν έχει να κάνει με το λειτουργικό (δηλαδή όχι όσον αφορά το πρόβλημά σου)...

Αν δηλώσει όλα τα dependencies σωστά στον installer, τότε θα πρέπει ανεξάρτητα λειτουργικού να τρέχει... το πρόβλημα που παίζει συνήθως είναι ότι στα vista/win7, επειδή το πρόγραμμα τρέχει σε user mode, δεν μπορεί να σώσει μέσα στον φάκελο του προγράμματος που είναι στο Program Files, γι' αυτό θα πρέπει να κάνεις πρώτα trace το user path (πχ το My Documents του χρήστη) είτε από το path, είτε από το api των windows και να σώζεις εκεί... διαφορετικά για μικρά δεδομένα (αν και διαφωνώ με αυτή την πρακτική), μπορείς να χρησιμοποιείς την registry...

[sergios]

το εχω προβλεψει αυτο....και τα παντα τρεχουν σε admin mode..

[sergios]

καλημερα παιδια!!!!

εχω ενα μικρο αλλα συμαντικο προβληματακι.........

κωδικας

--------Declarations------------

Dim strDayTimeRead As String

------------------------------

Private Sub Form_Load()

strDayTimeRead = String(111, " ")

End Sub

private sub save_click()

Dim Filenum As Integer

Filenum = FreeFile

Open "C:/test" For Binary As Filenum

Dim tempString As String

tempString = "0000" + strDayTime + String(111 - Len(strDayTime), " ")

'(το tempString εχει την μορφη 000013401550010=13:40 15:50 010)

Put #Filenum, 1, IsNewDraw

Put #Filenum, 3, wNumber

Put #Filenum, 5, timeInterval

Put #Filenum, 7, raise

Put #Filenum, 9, drawHour

Put #Filenum, 11, drawMinute

'Put #Filenum, 13, CLng(text1.Text)

Put #Filenum, 18, tempString

Put #Filenum, 20, winow

Put #Filenum, 22, limit

Close Filenum

end sub

'----------------------------------------------------------

'η αποθηκευση του tempStringγινετε σωστη!!!

private sub open_click()

Get #Filenum, 1, IsNewDraw

Get #Filenum, 3, wNumber

Get #Filenum, 5, timeInterval

Get #Filenum, 7, raise

Get #Filenum, 9, drawHour

Get #Filenum, 11, drawMinute

Get #Filenum, 13, jatoney

Get #Filenum, 18, strDayTimeRead '18

Get #Filenum, 22, limit

close #Filenum

'ΕΔΩ ΕΙΝΑΙ ΤΟ ΠΡΟΒΛΗΜΑ!!!!!ΣΤΟ ΔΙΑΒΑΣΜΑ ΤΟΥ strDayTimeRead!!!

'strDayTimeRead=0χχχθ3401550010 ενω θα επρεπε να ειναι 000013401550010!!!

'καμια συμβουλη παιδια???

'ευχαριστω

[Jaco]

Είναι γνωστό bug της vb6 αυτό... έχει να κάνεις με το ότι ανοίγεις το αρχείο ως binary...

Είτε το ανοίγεις ως output, είτε φτιάχνεις ένα Type με τις μεταβλητές που θες να σώσεις και σώζεις το Type σαν binary, χωρίς την χρήση των records...

[sergios]

καλημερα παιδια.

εχω να κανω insert into εντολη και αντιμετοπιζω ενα προβληματακι......

ο κωδικας:

Dim str As String

Dim datetime_start As String ', datetime_end ' As Date

Dim cmd As ADODB.Command

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call getDateFromTimeStamp(datetime_start)

pl_id = 94

qty = 200

price = 1.14

total = 100

'datetime_end = Now

paytype = 0

fuel_type_id = 1

in_out = 0

seq_no = 0

'On Error Resume Next

cn.ConnectionString = "DSN=PetrolMaster;UID=dba;PWD=sql"

cn.Open

str = "SELECT*FROM transactions"

rs.Open (str), cn, adOpenForwardOnly, adLockOptimistic

'rs.CursorType = adOpenStatic

'rs.LockType = adLockOptimistic

'rs.ActiveConnection = cn

Commands = "insert into transactions(tr_datetime_start,tr_pl_id,tr_qty,tr_price,tr_total,tr_datetime_end,tr_paytype,tr_seq_no,tr_in_out,tr_fuel_type_id)values (" & datetime_start & "," & pl_id & "," & 0 & "," & price & "," & 0 & "," & datetime_end & "," & 0 & "," & "'111'" & ", " & 0 & ", " & fuel_type_id & ");"

cn.Execute (Commands), cn

cn.Close

Public Function getDateFromTimeStamp(datetime_start)

Dim vbdate As Date

vbdate = DateAdd("s", TimeStamp, DateSerial(Year(Now), Month(Now), Day(Now)))

datetime_start = Format(vbdate, "yyyy-MM-dd") ', vbtime, "hh:mm:ss")

End Function

'datetime_start="2010-03-12"

οταν το τρεχω μου βγαζει το σφαλμα "Cannot convert 1995 to timestamp"

μπορει να με βοηθεισει καπιος???

και επισης το datetime_start το τελικο format πρεπει να ναι 2010-03-12 11:10:09

και το datetime_start=datetime_end.

ευχαριστω