VB kai ADODB help...

[Link]

Kanw ena programma se VB to opoio diaxeirizetai vasi dedomenwn ACCESS alla exw tria mikra provlimata.

 

1) To programma argei arketa na fortwsei otan anoigei tin vasi kai apoiadipote eggrafi prosthesw , aferesw i aplos kanw prospelasi paei polly arga kai dixnei oti o skliros doulevei polly.

 

Apo to menu Project ->References -> exw epileksei "Microsoft Data Formatting Object Library 6.0 (SP4) " kai exw leitourgiko windows XP professional agklika. Mipws thelei allo? tha ithela to programma mou na trexei kai se alla windows ektos apo XP.

 

2) Mou parousiazetai provlima otan thelw na emfanisw stin VB ola ta pedia mias eggrafis apo to table stin ACCESS kai kapoio pedio to exw keno, petaei minima gia null object. Pws mporw na to apofygw afto wste na dixnei kai ta kena paidia xwris provlima?

 

3)Den katalavenw to giati alla i VB mou kanei kati koufa me ta ellinika. Alles fores mporw na grapsw se ena Label i Text box ellinika kai alles oxi (mou ta emfanizei kinezika) kai episeis i vasi pou apo tin ACCESS exw simplirwsei merikes egrafes gia test me ellinika, otan tin anoigw apo VB mou ta emfanizei pali kinezika.Ti tha mporousa na kanw gi' afto ?

 

eyxaristw ek' twn proterwn !

[Phillip Morris]

1) Μάλλον. Για δείξε μας το Connection String και τα ξαναλέμε...

2) Text1.Text = rsdata.Fields("Pedio1") & ""

Έτσι δεν θα ξαναβγάλει μύνημα για null (εννοώ το & "").

3) Φταίει το Font. Διάλεξε από τα Properties -> Font -> Tahoma -> Ελληνική.

 

Στην διάθεσή σου για οτιδήποτε άλλο...

Phillip

[Link]

1)Kathe fwra pou ektelw to programma mou dimiourgei ena file SQL.txt sto root tou partition pou trexw to programma kai synexws grafei kati gia SQL success kai error me apotelesma na dw simera to sygkekrimenw arxeio kai na exei ftasei xwritikotia 23 MB !

 

Dim DBConnection As ADODB.Connection

Dim Rs As ADODB.Recordset

 

Set DBConnection = New ADODB.Connection

Set Rs = New ADODB.Recordset

 

DBConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" & _

"Dbq=" & App.Path & "\BDB.mdb;" & "Uid=Admin;" & "Pwd=;"

 

2)diladi ekei pou eixa p.x. txtName.Text = Rs!Name na to allaksw se txtName.Text = Rsdata.Fields("Name")&""

 

3)Thanks gia tin simvouli sou alla vrika ena text box pou mporousa kai egrafa ellinika kai to ekana copy-paste opou xreiazomouna

 

Kai kati allo, thelw se ena text box na grafw askia se euro. Exw epileksi apo to propertie to data format na einai currency me symbol greek alla kai pali oti timi kai na grafw den mou ta emfanizei san euro me dekadika kai diaxwristika alla san na itan kanonikos arithmos. Pws mporw na to ftiaksw afto.

 

eyxaristw gia tin voithia !

[Phillip Morris]

1)

>
Dim DBConnection As ADODB.Connection
Dim Rs As ADODB.Recordset

strConnection = "DBQ=" & App.Path & "\BDB.mdb;DefaultDir=" & App.Path & "\;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

Set DBConnection = New ADODB.Connection
DBConnection.Open strConnection

Set RS = New ADODB.Recordset
RS.Open "Pinakas", DBConnection, adOpenDynamic, adLockPessimistic, adCmdTable

Και όλα θα είναι ΟΚ.

 

2) txtName.Text = Rs!Name & ""

3) Σωστός.

 

Αυτά.

Phillip

[vagpap]

Για την αξία που ζητάς για δοκίμασε το παρακάτω στο LoseFocus():

>
txtAmount = Format(amount, "Currency")