Visual basic,sql και σύνταξη

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
invader7
Δημοσιεύσεις: 78
Εγγραφή: 24 Ιαν 2009 22:02

Visual basic,sql και σύνταξη

Δημοσίευση από invader7 » 24 Ιαν 2009 23:14

Γεία σας είμαι καινούργιος στο forum και ελπίζω να με βοηθήσετε. Έχω μια φόρμα σε visual basic και θέλω να με βοηθήσετε με το πώς θα αποθηκεύω,ανανεώνω και πως να τα διαβάζω.

Για παράδειγμα θέλω να πατάω ένα κουμπί και να κάνει update στο table1 το value test να βλέπω την αλλαγή άμεσα σε ένα gridview η τέλος πάντων με κάποιο τροπο :D

μέχρι τώρα έχω κάνει το εξής...


Dim cn As OdbcConnection
cn = New OdbcConnection("dsn=το_dns_μου;")
Dim mystring As String = "Select * from table1"
Dim cmd As OdbcCommand = New OdbcCommand(mystring)
cn.Open()
MsgBox("Connected")
cn.Close()


το έχω στο form_load και όταν τρέχει το πρόγραμμα μου βγάζει το μήνυμα Connected.

θέλω να μου δείξετε τον τρόπο με ένα δύο παραδείγματα για να μπω στο νόημα.

να αναφέρω ότι έχω Visual Studio 2008, και η βάση μου είναι σε Sql 2005.
ευχαριστώ.

killingbegin
Δημοσιεύσεις: 9
Εγγραφή: 01 Φεβ 2009 18:14

Visual basic,sql και σύνταξη

Δημοσίευση από killingbegin » 01 Φεβ 2009 18:32

Tha ksekinisoume dixnontas pos kanoume add stixia sth Db.Ego edo xrhsimopio access.

Fantasou oti exoume mia forma me:

textbox tou name :txtname
textbox gia eponimo:txtlname

kai ena button kataxorhsh.

episis kanoume ena module tha to onomasouse modDb ekei tha exoume ola ta functions gia th bash

to Button pano exei to code

Private Sub cmd_submit_Click()
Dim saveArr(2) As String
saveArr(1) = Me.txtname.Text
saveArr(2) = Me.txtlname.Text
ModDb.sdata() = saveArr()
Call saveData
End Sub


opote edo otan kaneis save automata pernao se ena array 2 theseon to onoma kai to eponimo...tora ama thes k alla stixia megaloneis tis theseis k prateis analoga.
To modDb.sdata() ine enas pianakas public sdata() As String sto modDb p pernei oti dedomeno exei mesa o savearr

me to call savedata kaleis thfunction apo to modDb p tha ftiaxoume tora gia na apothikeuoume ta dedomena mas.

Public Function saveData()

Dim Conn As ADODB.Connection 'Connection
Dim Rs As ADODB.Recordset 'Recordset
Dim strQuery As String 'Command
Dim asTmp() As String
Dim cCounter As Long
Dim cTotal As Long

'Set, describe, and open the connection to the database:

Set Conn = New ADODB.Connection
With Conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\develop\phones\phones.mdb"
.Open
End With
strQuery = "SELECT * FROM epafh"



Set Rs = New ADODB.Recordset
With Rs
Set .ActiveConnection = Conn
.CursorType = adOpenStatic
.Source = strQuery
.LockType = adLockOptimistic
.Open
End With


Rs.AddNew
Rs.Fields("name").Value = sdata(1)
Rs.Fields("lname").Value = sdata(2)

Rs.Update
Rs.Close

End Function

edo orizeis kapia standar pragmata gia to connection ktl auta menoun panta idia
to epafh ine o dikos mou pinakas sth bash mou
sto rs.fields name kai lname ine ta pedia mesaa sto pinaka onoma kai eponimo antistixa

gia na emfaniseis ta dedomena auta tora

tha mproeis ite na emfanizeis se ena listbox ta onomata p exeis sth bash sou kai na mporeis na klikareis pano sto kathena gia nadeis ta stoixia tous h na ta kaneis search.
tha protimiso na mi sto dixo kai na poretheis m auta edo.

invader7
Δημοσιεύσεις: 78
Εγγραφή: 24 Ιαν 2009 22:02

Visual basic,sql και σύνταξη

Δημοσίευση από invader7 » 03 Φεβ 2009 01:27

an k dn me voithises gt dn exw access se euxaristw polu gia tin apantisi sou, vrika tropo na to ftiaksw, na se kala.

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες