tbbuim1 :
Tu rempli sql avec quoi ,pour ma part j ai été obligé de le remplacer par "USE mysql"; et je ne peut toujours pas modifier directement dans une cellule du datagrid.
Je parle de ma source a l' adresse suivante :
http://www.vbfrance.com/code.aspx?id=30750
Beh moi j'arrive à modifier mon datagrid et autre comme sous access... :p J'ai mis rs.Open sql, conn, adOpenDynamic, adLockOptimistic
J'ai exporter ma base access sous MySQL par MyODBC
Et surtout j'ai rajouté une clé primaire à ma base, sans la clé primaire, il ne voulait rien modifier!
sinon quel qu un sait pouquoi ont ne peut editer les cellules directement comme dans access par exemple ,alors que aprés un clic droit sur le datagrid (en mode edition) et proprieté j ai coché toute les cases y compris allowupdate .......
sydaze :
si ta question de l entete tiens tjrs voici la reponse en suposant que ton datagrid s appel datgrdata :
Private Sub datgrdData_HeadClick(ByVal ColIndex As Integer)
dim choixidxtri as strings
choixidxtri = datgrdData.Columns(ColIndex).Caption
MsgBox choixidxtri
End Sub
manbust :
si c est mysql sur un linux box :
Private Sub Exporter_Click()
Dim reponse As VbMsgBoxResult
On Error GoTo erreur
reponse = MsgBox("Ceci ne marche que si vous êtes connecté au réseau local du serveur linux", vbOKCancel)
If reponse = vbCancel Then Exit Sub
If Dir("T:" & user & "\result_" & user & ".xls") <> "" Then Kill "T:" & user & "\result_" & user & ".xls"
cmd.CommandText = "SELECT * INTO OUTFILE '/stock100Gig/tmp/" & user & "/result_" & user & ".xls'FROM " & user & ";"
cmd.Execute sql
reponse = MsgBox("Fichier enregistrer dans T:" & user & "\result_" & user & ".xls ,faut il l'ouvrir avec Excels ?", vbYesNo)
If reponse = vbYes Then ShellExecute Me.hWnd, vbNullString, "T:" & user & "\result_" & user & ".xls", vbNullString, "", 1
erreur:
If Err.Description = "" Then
Else
MsgBox Err.Description
End If
End Sub
Private Sub Restaurer_Click()
On Error GoTo erreur
MsgBox "Le fichier qui permet de restaurer est celui que vous avez tout d'abord exporté ,donc si Excels à ouvert ce fichier il en as l'exclusivité,la restauration sera un échec.", vbInformation
cmd.CommandText = "LOAD DATA INFILE '/stock100Gig/tmp/" & user & "/result_" & user & ".xls' REPLACE INTO TABLE " & user & ";"
cmd.Execute sql
rafraichir
erreur:
If Err.Description = "" Then
Else
MsgBox Err.Description
End If
pour ta question SQL, il suffit de faire un "select * from tatable where tonchamp like 'chainecherchée'", attention en fonction du type de champ (text ou chiffre) il vaut mieux remplacer like par =
je vais regarder ton source a l'occase, si ta des questions pas de probleme
bon ben c pareil, je n'ai jamais utiliser vb pour les pages web dynamiques mais je crois qu'il faut utiliser l'objet WebClass qui fera le lien avec tes pages html et l'application vb qui se trouve du le serveur
tu as eu cette erreur parceque tu n'a pas installé les pilotes MyODBC necessaires à ta connection avec la base de donnée.
sinon oui tu peu te connecter à une DB sur un site en utilisant de préference du PHP
Tu rempli sql avec quoi ,pour ma part j ai été obligé de le remplacer par "USE mysql"; et je ne peut toujours pas modifier directement dans une cellule du datagrid.
Je parle de ma source a l' adresse suivante :
http://www.vbfrance.com/code.aspx?id=30750
describe MATABLE
- Messages postés
-
940
- Date d'inscription
- jeudi 20 février 2003
- Statut
- Membre
- Dernière intervention
- 3 février 2011
8J'ai exporter ma base access sous MySQL par MyODBC
Et surtout j'ai rajouté une clé primaire à ma base, sans la clé primaire, il ne voulait rien modifier!
- Messages postés
-
940
- Date d'inscription
- jeudi 20 février 2003
- Statut
- Membre
- Dernière intervention
- 3 février 2011
8