درج اطلاعات به صورت دستی

[me1364]

چگونه اطلاعات داخل Text را بدون اینکه به جدول وصل کرده باشم به صورت دستی در دیتا بیس ذخیره کنم

[ASKaffash]

با سلام
مثل این نمونه :

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case True
Case Val(Me.DataCombo1.BoundText) = 0
Beep
Me.StatusBar1.Panels(1).Text = "äæÚ ÑæäÏå ÑÇ æÇÑÏ ˜äíÏ"
Me.DataCombo1.SetFocus
Exit Sub
Case Trim(Me.Text1.Text) = ""
Beep
Me.StatusBar1.Panels(1).Text = "???? ÑÇ æÇÑÏ ˜äíÏ"
Me.Text1.SetFocus
Exit Sub
End Select
'Save
With FrmMain.Adodc1.Recordset
.AddNew
!Serial = 100
!SDate = Me.MaskEdBox1.Text
!Disc = Trim(Me.Text1.Text)
!CSanad = Val(Me.DataCombo1.BoundText)
.Update
End With
FrmMain.Adodc1.Refresh
Unload Me
End Sub

[فاطمه وطن دوست]

سلام


http://barnamenevis.org/forum/showpost.php?p=479736&postcount=8

http://barnamenevis.org/forum/showthread.php?t=104724