[vb6] problemi datagrid

[simicasa]

Ho associato un controllo adodc a un datagrid scrivendo il seguete codice:

[
Private Sub Form_Load()
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\CM segreteria\Desktop\gianni\progetto lino\database.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = Adodc1
Adodc1.ConnectionString = str
str = "SELECT * FROM nometabella"
Adodc1.RecordSource = str
DataGrid1.ReBind
end sub

il mio problema e che il controllo datgrid mi elimina il primo campo del primo record
come posso risovere questo problema? grazie in anticipo

[Verce]

mmmh..
perché ReBind?

Io onestamente farei le cose con un altro ordine.. così mi sembra un pò "pacioccato"
Inoltre userei 2 stringhe diverse per connessione e per la query..

Private Sub Form_Load()
Dim str As String
Dim query As String

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\CM segreteria\Desktop\gianni\progetto lino\database.mdb;Persist Security Info=False"
Adodc1.ConnectionString = str

query = "SELECT * FROM nometabella"
Adodc1.RecordSource = query

Set DataGrid1.DataSource = Adodc1
DataGrid1.DataBind()

end sub

Prova a fare così..
Non sono certo che risolva il tuo problema, ma è molto più leggibile il codice!

[Grumpy]

Originariamente inviato da Verce
DataGrid1.DataBind()

?!

Originariamente inviato da Verce
...ma è molto più leggibile il codice!

Lo sarebbe ancora di più usando gli appositi tag.

[Verce]

Giusta tirata di orecchie...

Private Sub Form_Load()
Dim str As String
Dim query As String

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\CM segreteria\Desktop\gianni\progetto lino\database.mdb;Persist Security Info=False"
Adodc1.ConnectionString = str

query = "SELECT * FROM nometabella"
Adodc1.RecordSource = query

Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind()

end sub

DataBind() è una deformazione da .Net

[simicasa]

utilizzando databind() mi da errore
dopo ho riscritto il mio codice e funziona perfettamente

Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\CM segreteria\Desktop\gianni\progetto lino\database.mdb;Persist Security Info=False"
Adodc1.ConnectionString = str
str = "SELECT * FROM nometabella"
Adodc1.RecordSource = str
Set DataGrid1.DataSource = Adodc1
DataGrid1.ReBind

cambia solo la posizione della riga

 Set DataGrid1.DataSource = Adodc1

perche ?

[gibra]

Io invece per migliorare il codice eliminerei proprio il vecchio controllo ADODC, che presto o tardi ti darà problemi (ed è comunque completamente inutile!)

Vedi questo progetto di esempio:
ADO DataProject 2
http://nuke.vbcorner.net/Progetti/VB...8/Default.aspx


Nel DataGrid penso, spero per te, non vorrai affrontare un bagno di sangue con l'editing in grigila...

per cui ti basta impostare :

AllowUpdate=False
AllowDelete=False
AllowAddNew=False
MarquesStyle= 3 'HigLightRow