HdkiLLeR Δημοσ. 24 Ιανουαρίου 2003 Δημοσ. 24 Ιανουαρίου 2003 Pedes ta fwta sas ligo mias kai eimai new se VB .I katastasi exei ws exis.Exw mia database se Access kai enan apo toys pinakes tis ton exw sindesei me ena DAO Control.Estw oti o pinakas einai Users kai exei mesa ta pedia name kai address.To DAO control exei name db.Auto poy thelw einai to exeis na kane ena search/find ston pinaka auto sto pedio name kai ean to vrei na kanei move ekei.Diladi .Find... kai meta to db.Recordset!addess na einai to field poy exei tin timi tis dieuthinsis gia to sigekrimeno name poy epsaxa.Ean to name einai bill kai i address atd23 thelw kanodas search gia to bill ean to vriskei pada to db.Recordset!address na dixnei sto atd23.Episis mipos borei kaneis na moy pei ean borw na trexw me code ena .bat file?Kati adistixo me tin system() tis C zitaw diladi.Sas euxaristw ek twn proterwn
GrMikeD Δημοσ. 24 Ιανουαρίου 2003 Δημοσ. 24 Ιανουαρίου 2003 Gia to bat arxeio, des tin ShellExecute() tou Win32s API.
bandito Δημοσ. 24 Ιανουαρίου 2003 Δημοσ. 24 Ιανουαρίου 2003 Συγγνώμη;;;;;; Αν κάνεις search με ένα query του τύπου: > select from users where name='bill' θα σου επιστρέψει το recordset με όλους τους users με το όνομα bill. Με .recordset.recordcount, βλέπεις ποια αποτελέσματα είχες, με .recordset.movenext πάς στην επόμενη εγγραφή. Εννοείτε δηλαδή οτι το recordset θα δείχνει εκεί!
Dvs Δημοσ. 26 Ιανουαρίου 2003 Δημοσ. 26 Ιανουαρίου 2003 na rotiso kai ego kati gia VB+ Access Otan kano mia anazitisi mou epistrefei ena recordsource. Diavazo tis eggrafes kai ta pedia. Ostoso merika einai NULL kai otan pao na ta emfaniso se textbox perno ena error. Pos mporo an to apofigo auto?I sigrisi me NULL kai i metrisi tou mikous(len) exoun apotixei mexri tora
bandito Δημοσ. 26 Ιανουαρίου 2003 Δημοσ. 26 Ιανουαρίου 2003 Σου επιστρέφει recordset όχι recordsource. Γενικά δεν συνηθίζεται να επιτρέπεις null τιμή σε tuples. Μπορείς να γράψεις το κομμάτι του κώδικα που δεν δουλεύει; Εμένα η σύγκριση με NULL παίζει.
Dvs Δημοσ. 26 Ιανουαρίου 2003 Δημοσ. 26 Ιανουαρίου 2003 If (Len(Data1.Recordset.Fields!Name) = 0) Then txtName.Text = "" Else txtName.Text = Data1.Recordset.Fields!Name End If If (Data1.Recordset.Fields!Name = NULL) Then txtName.Text = "" Else txtName.Text = Data1.Recordset.Fields!Name End If kai ta dio auta apotigxanoun!
The_Edge Δημοσ. 26 Ιανουαρίου 2003 Δημοσ. 26 Ιανουαρίου 2003 Για δοκίμασε αυτό: If VarType(Data1.Recordset.Fields!Name) = vbNULL Then txtName.Text = "" Else txtName.Text = Data1.Recordset.Fields!Name End If
bandito Δημοσ. 26 Ιανουαρίου 2003 Δημοσ. 26 Ιανουαρίου 2003 Φτού!!!! Με πρόλαβε ο The_Edge. Η σύγκριση όπως την έκανες φυσικά και δεν παίζει, γιατί ο Null της Access δεν ειναι NULL και της VB. Αυτό που σου έγραψε ο The_Edge, είναι σωστό. Επίσης σου προτείνω να χρησιμοποιείς adodc που ειναι καλύτερο απο το data ocx
Dvs Δημοσ. 27 Ιανουαρίου 2003 Δημοσ. 27 Ιανουαρίου 2003 bandito: exases <img src="http://www.insomnia.gr/ubbthreads/images/graemlins/tongue.gif" alt="" /> einai kalitero alla einai poli mikro programma pou to kano gia plaka thelo an to teleioso grigora
HdkiLLeR Δημοσ. 27 Ιανουαρίου 2003 Μέλος Δημοσ. 27 Ιανουαρίου 2003 Pedes sas euxarisw para poly gia tis apadiseis sas.To provlima telika to elisa me ena aplo Query san auto poy proteine o filos Bandito.Oson afora tin ShellExecute mipws borei kaneis na dwsei perissoteres plirofories?Auto poy thelw einai na trexei ena .bat file.Vasika auto poy thelw na kanw einai ena copy.Eana file se ena allo kai na to kanei overritte kai to kanw apla me ena .bat file diladi copy file1 file2 ean kaneis borei na vothisei etsi wste na to kanw kai me kwdika tha itan idietera xrisimw sas euxaristw
W.A.Mozart_(jr.) Δημοσ. 30 Ιανουαρίου 2003 Δημοσ. 30 Ιανουαρίου 2003 > Set fso = CreateObject("Scripting.FileSystemObject") FileCopied = fso.CopyFile(<strSourceFileName>, <strTargetDirectory>, <True/False>) Σου επιστρέφει : 0 όταν όλα πάνε καλά. 1 όταν το target αρχείο υπάρχει 3 όταν το target directory δεν υπάρχει .....
GrMikeD Δημοσ. 30 Ιανουαρίου 2003 Δημοσ. 30 Ιανουαρίου 2003 Ama einai mono thema enos Copy, fadazomai oti tha uparxei idi built in stin Visual Basic analogi sunartisi. Ama den uparxei kane import to parakanw API: Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long pssssssssssssssssss, na einai kala o APi Viewer tou VS! )))
apoc Δημοσ. 30 Ιανουαρίου 2003 Δημοσ. 30 Ιανουαρίου 2003 Επισης υπαρχει και ο λιγοτερο αυτοματος ..ισως καθαρα ακαδημαικος τροπος .. με την χρηση αρχειων ανοιξε αρχειο διαβασε αρχειο γραφε buffer ανοιξε αλλο αρχειο γραξε τον buffer στο αρχειο κλεισε αρχειο σβησε αρχεια (αναλογα το τι θες να κανεις)
GrMikeD Δημοσ. 30 Ιανουαρίου 2003 Δημοσ. 30 Ιανουαρίου 2003 Episis uparxei kai o allos akoma pio praktikos kai xeirwnaktikos tropos, katallilos akoma kai gia arxarious tou programmatismou: 1) Anoikse to arxiko arxeio me to notepad 2) Dimiourgise ena arxeio stin epithumiti nea topothesia me to epithimito onoma 3) Kane select all kai meta copy to arxiko arxeio apo to notepad 4) Anoikse to keno neo arxeio pou molis dimiourgises kai apla pata paste. 5) Swse to neo arxeio. 6) Auto itan, sugxaritiria!
apoc Δημοσ. 30 Ιανουαρίου 2003 Δημοσ. 30 Ιανουαρίου 2003 χexex οχι δεν εγινε επιτηδες! τα σχεδον πανομοιοτυπα ποστ! Great minds think alike ! xexexex
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.