|
Object variable or with block variable not set
|
||
|---|---|---|
Участник
Сообщения: 6 245
|
||
|
Set rs = New Recordset
 |
||
| 16.03.2005, 12:47:36 |
|
|
|
|
|
Object variable or with block variable not set
|
|||
|---|---|---|---|
|
#18+
Dim 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 Подскажите пожалуйста варианы решения этой проблемы ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.03.2005, 12:46:05 |
|
||
|
Object variable or with block variable not set
|
|||
|---|---|---|---|
|
#18+
Set rs = New Recordset ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.03.2005, 12:47:36 |
|
||
|
Object variable or with block variable not set
|
|||
|---|---|---|---|
|
#18+
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 . . . . . ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.03.2005, 12:50:22 |
|
||
|
Object variable or with block variable not set
|
|||
|---|---|---|---|
|
#18+
Валерий_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 . . . . . ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.03.2005, 12:52:45 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2168093]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
77ms |
get topic data: |
13ms |
get first new msg: |
8ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 243ms |
| total: | 417ms |
| 0 / 0 |
