PDA

View Full Version : کمک در مورد انتقال فایل متنی به دیتابیس



hamalous
پنج شنبه 20 تیر 1392, 18:02 عصر
سلام دوستان من یک برنامه دارم که با استفاده از دکمه open یک فایل رو انتخاب و در تکست باکس نمایش میدم حالا می خوام محتویات این تکس باکس با فشردن دکمه add بریزه توی بانک دیتابیس میشه در مورد راهنمایی کنید و بگین اشکال کار از کجاست من سورس برنامه رو ضمیمه می کنم همچنین فایل تکست هم درون سورس برنامه قرار داره ممنون
http://uploadtak.com/images/o5745_proje.rar

hamalous
جمعه 21 تیر 1392, 20:17 عصر
از دوستان کسی نیست در این مورد راهنمایی کنه من می دونم چطور میشه اطلاعات رو یکی یکی وارد دیتابیس کرد اما نمی دونم چطور یکجا این کار رو انجام بدم یعنی اول اطلاعات رو کامل به تکست باکس ببرم سپس اونا رو از تکست باکس به دیتابیسم انتقال بدم

m.4.r.m
دوشنبه 24 تیر 1392, 02:09 صبح
شما به جای Datagrid از VSflexgrid استفاده کن که قابلیت های زیادی داره اینم کد شما با این کد من همه اطلاعات Txt رو در دیتابیس ذخیره کردم

Private Sub Command1_Click()
Dim tmp As String
Dim filepath As String

cmdg.ShowOpen
filepath = cmdg.FileName

Open filepath For Input As #1
tmp = Input(LOF(1), #1)
Close #1
Text1.Text = tmp
VS.LoadGrid cmdg.FileName, flexFileCustomText
End Sub

Private Sub Command2_Click()
With VS
For i = 1 To .Rows - 1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = .TextMatrix(i, 1)
Adodc1.Recordset.Update
'.Rows = .Rows + 1
Next i
End With
End Sub