ADD NO BCO.DADOS

GABYS 04/09/2010 18:20:18
#352223
Como eu faço para add os dados da flexgrid no bco.dados do access?
eu tentei e não consequi

passem o email q eu envioo o projetoo
tentei pelo vbmania mas da erro formato ñ acc
GABYS 05/09/2010 12:13:05
#352276
Public Sub Detalhes()
[ô]Ver detalhes da musica
Dim FName As String
FName = Wmp.URL
If FName = [Ô][Ô] Then
Exit Sub
End If
If Dir(FName) = [Ô][Ô] Then
Exit Sub
End If
Dim FileNum As Integer
FileNum = FreeFile
Dim strInput As String
Open FName For Binary As FileNum
If LOF(FileNum) < 128 Then
Exit Sub
End If
Seek FileNum, LOF(FileNum) - 127
strInput = Space(3)
Get FileNum, , strInput
If strInput <> [Ô]TAG[Ô] Then
Exit Sub
End If

With Grid1
.Col = 0
.Text = .Rows - 1

[ô]Ver detalhes da música
strInput = Space(30)
Get FileNum, , strInput
.Col = 1
.Text = strInput

strInput = Space(30)
Get FileNum, , strInput
.Col = 2
.Text = strInput

strInput = Space(30)
Get FileNum, , strInput
.Col = 3
.Text = strInput

strInput = Space(4)
Get FileNum, , strInput
.Col = 4
.Text = strInput

strInput = Space(30)
Get FileNum, , strInput
.Col = 5
.Text = strInput
Close FileNum
End With
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_DblClick()
Wmp.URL = Dir1.Path & [Ô]\[Ô] & File1.FileName
Detalhes
End Sub

Mais eu queria tirar o DIR e colocar CommonDialog1 e add
essas informações no access
Tópico encerrado , respostas não são mais permitidas
Voltar