Information générale
Titre:
Forgot to send the code for the previous query
I forgot to send the code so I am sending it now
Sub cmdBind_onclick
set Conn =CreateObject(ADODB.Connection)
strConnectionString =Driver=SQL S e rver;server=meghna;Uid=sa;Pwd=;database=New_Esugar;
Conn.Open strConnectionString
if Not Conn is Nothing Then
set rs =CreateObject(ADODB.Recordset)
msql=SELECT * FROM registration
'rs.CursorLocation =adUseClient
rs.Open msql,Conn,adOpenKeyset, adLockOptimistic
Set SSUltraGrid1.DataSource = rs
End if
End Sub
Sub SSUltragrid1_InitializeLayout(Context,Layout)
ssultragrid1.Caption =Contents of registration table
ssultragrid1.Override.HeaderAppearance.backcolor=&H00800000&
ssultragrid1.Override.HeaderAppearance.forecolor=vbwhite
ssultragrid1.override.rowappearance.backcolor = &H0080FFFF&
ssultragrid1.override.rowalternateappearance.backcolor =&H00ACF7F7&
ssultragrid1.override.rowalternateappearance.forecolor = vbblack
end sub
< / sc ript>
< BO DY >
codeBase=/ssultragrid.cab classid= clsid:D30CFC72-67B3-11D3-9475-00104B9E078A width=731
height=299 VIEWASTEXT>
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement
