lilo12Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
db_file = IniMassivPrivate("База", App.Path & "\conn.ini")
Set conn = New ADODB.Connection
conn.Open "Provider=vfpoledb.1; Data Source=" & db_file & "; mode=share deny none; extended properties =""; user id=""; password=""; mask password=false; cache authentication=false; encrypt password=false; collating sequence=machine; DSN="""
rs.Source = "prihod"
rs.Open
rs.addnew
rs.Fields("type") = Combo1.Text
rs.Fields("kol_p") = txtkol_p
rs.Fields("data_p") = DTPicker1
rs.update

rs.Close
conn.Close
Подскажите пожалуйста варианы решения этой проблемы


попробуй так


Dim ssql As String
Dim strsnn As String
Dim strid As String
Dim i
Dim b

Set cnn1 = New ADODB.Connection
strcnn = "driver={SQL Server};server=имя сервера;" & _
"uid=пользователь;pwd=пароль;database=имя базы"
cnn1.Open strcnn

Set rsSotrudniki = New ADODB.Recordset
rsSotrudniki.add new
.
.
.
.
.

Валерий_26RUS lilo12Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
db_file = IniMassivPrivate("База", App.Path & "\conn.ini")
Set conn = New ADODB.Connection
conn.Open "Provider=vfpoledb.1; Data Source=" & db_file & "; mode=share deny none; extended properties =""; user id=""; password=""; mask password=false; cache authentication=false; encrypt password=false; collating sequence=machine; DSN="""
rs.Source = "prihod"
rs.Open
rs.addnew
rs.Fields("type") = Combo1.Text
rs.Fields("kol_p") = txtkol_p
rs.Fields("data_p") = DTPicker1
rs.update

rs.Close
conn.Close
Подскажите пожалуйста варианы решения этой проблемы


попробуй так


Dim ssql As String
Dim strsnn As String
Dim strid As String
Dim i
Dim b

Set cnn1 = New ADODB.Connection
strcnn = "driver={SQL Server};server=имя сервера;" & _
"uid=пользователь;pwd=пароль;database=имя базы"
cnn1.Open strcnn

Set rsSotrudniki = New ADODB.Recordset
rsИМЯ ТАБЛИЦЫ.addnew
.
.
.
.
.