Hola....
Tengo este error:
Error 446 Object doesnt support named arguments
tengo esta funcion don de hago la conexion
Private Sub Cargar()
Dim CantReg As Variant
Connect.Provider = "SQLOLEDB"
Connect.Open "Driver={SQL Server};" & _
"Server=" & macForm.ConnInfo.Server & _
";Uid=" & macForm.ConnInfo.User & _
";Pwd=" & macForm.ConnInfo.pwd & _
";Database=" & macForm.ConnInfo.DB
Set Rsl = New ADODB.Recordset
Set Rs2 = New ADODB.Recordset
Cadena_SQL = "SELECT COUNT(*) as cus_name FROM OECOTIZACION_SQL"
Cadena_SQL_2 = "SELECT * FROM OECOTIZACION_SQL"
Rsl.Open Cadena_SQL, Connect, adOpenDynamic, adLockPessimistic
Rs2.Open Cadena_SQL_2, Connect, adOpenDynamic, adLockPessimistic
CantReg = Rsl.Fields("cus_name")
Rs2.MoveFirst
For i = 0 To CantReg - 1
Combo_Cliente.AddItem Rs2.Fields("cus_name")
Rs2.MoveNext
Next i
End Sub
y tengo la funcion de consultar
Private Sub Cmd_Aceptar1_Click()
Cadena_SQL = "Select * from OECOTIZACION_SQL"
StrSql = ""
If Text_Fecha.Text <> "" Then
StrSql = StrSql + "cot_date=" & Text_Fecha.Text + " and "
End If
If Text_Id.Text <> "" Then
StrSql = StrSql + "cot_number=" & Text_Id.Text + " and "
End If
If Combo_Cliente.Text <> "" Then
StrSql = StrSql + "cus_name=" & Combo_Cliente.Text
End If
If Text_Producto.Text <> "" Then
StrSql = StrSql + "item_no=" & Text_Producto.Text
End If
If Text_Product.Text <> "" Then
StrSql = StrSql + "search_desc=" & Text_Product.Text
End If
If Text_Especific.Text <> "" Then
StrSql = StrSql + "Especific_prod=" & Text_Especif.Text
End If
If Text_Presentacion.Text <> "" Then
StrSql = StrSql + "item_desc_2=" & Cmd_present.Text
End If
If Text_Cantidad.Text <> "" Then
StrSql = StrSql + "qty_prod=" & Text_Presentacion.Text
End If
If Text_Precio.Text <> "" Then
StrSql = StrSql + "prc_or_disc_1=" & Text_Precio.Text
End If
If Text_Validez.Text <> "" Then
StrSql = StrSql + "end_prc=" & Text_Validez.Text
End If
If Combo_terminos.Text <> "" Then
StrSql = StrSql + "pay_term=" & Combo_terminos.Text
End If
If Text_Direccion.Text <> "" Then
StrSql = StrSql + "addr_1=" & Text_Direccion.Text
End If
If Text_Reque.Text <> "" Then
StrSql = StrSql + "lead_time=" & Text_Reque.Text
End If
If Combo_Vendedor.Text <> "" Then
StrSql = StrSql + "cot_sales=" & Combo_Vendedor.Text
End If
If Text_Observ.Text <> "" Then
StrSql = StrSql + "cot_Observ=" & Text_Observ.Text
End If
If StrSql <> "" Then
Cadena_SQL = Cadena_SQL + " where " + StrSql
cadena = Cadena_SQL
desde = Len(cadena)
hasta = (desde - 5)
Cadena_SQL = Mid(cadena, 1, hasta)
End If
Connect.RecordSource = Cadena_SQL ' AQUI ME SALE EL ERROR
'Rs2.Refresh
Fra_Funciones.Visible = True
Fra_Consultar.Visible = False
