Ade
|
MACEIÓ
AL - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/12/2010 09:27 hs
Juan,
Para gravar não tem problema o problema é quando dou um select para após mostrar no text box, posta aí, a esta rotina do select e a que tu pega os dados do BD para mostrar no text, ok!!
|
|
|
|
|
|
Ade
|
MACEIÓ
AL - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/12/2010 09:45 hs
Juan,
Já verifiquei tudo e ainda não logrei êxito, no form load como utilizo a conexão via odbc é feito desta forma:
Set M_ARQ = rdoEnvironments(0).OpenConnection("CON_VB", rdDriverNoPrompt, False)
e o select é como mostrado acima, você utiliza ADO, mostra ai como é a conexão e o select ok?
|
|
|
|
|
|
Postada em 23/12/2010 11:41 hs
Eu uso como ADO sem ODBC :
Dim Cn as New.Adodb.Conection
Dim Rs as New.Adodb.Recordset
conecatr banco com arquivo ini:
Cn.CursorLocation = adUseClient
Cn.ConnectionString = "Provider=" & xProveedor & "; Integrated Security=SSPI; Persist Security Info=False; Database=" & xDatabase & "; user_id=sa; pwd=senha_usuario; Server=" & xIPServer & "; Data Source=" & xDatasource & ""
cn.open
Eu não uso objetos Adoddc nem Data Control, eu uso recordeset.
set Rs=Cn.Execute("Select campo1, campo2,..... where campox =' " & Variavel_Txto.Text &" ' ")
para o update e delete a mesma coisa so muda o comando sql. e fazer requery no recordset para atualizar os registros;
Blz
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 23/12/2010 16:29 hs
Ai Ade deu certo?. cara pq não faz um teste com Conexão ADO. eu fiz e deu certo. Da pra colar aqui o texto que vc ta gravando ou enviar via email?
meu msn é j_karlosra@hotmail.com
|
|
|
|
Ade
|
MACEIÓ
AL - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/12/2010 02:20 hs
Fala ai Juan,
Estou ainda apanhando para me conectar com o ADO, mais confirma para mim se os parametros de conexão com ADO estão corretos abaixo:
Provider=SQLOLEDB
Database=MEU BANCO(EX:TESTE)
user_id=usuario cadastrado para aquele BD
pwd=senha do usuario cadastrado para aquele BD
server=nome do meu servidor ou IP? Por exemplo meu servidor 2003 chama-ser SERVER2003, posso usar este nome?
Data Source=É o nome do mesmo servidor(server)?
Já tentei as conexões como mostra abaixo, mais está dando erros:
'====== Informações abaixo para a conexão com o MSSQL2000
Dim usuario, senha, servidor, BancoDados As String
Dim sql As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
usuario = txtUsuario.Text
senha = txtSenha.Text
servidor = txtServidor.Text
BancoDados = txtBD.Text
'uma das rotinas de conexão que peguei no site do macorati(http://www.macoratti.net/sql_cod.htm)
'cn.Provider = "SQLOLEDB"
'cn.Properties("Data Source").Value = servidor
'cn.Properties("Initial Catalog").Value = BancoDados
'cn.Properties("User ID").Value = usuario
'cn.Properties("Password").Value = senha
'cn.Open
'MsgBox " Conexao efetuada com sucesso ! "
Run-time error: '2147467259(80004005'
[DBNETLIB][Connectionopen (Connect()).] SQL Server inexistente ou acesso negado
'rotina que testei com tuas informações do vbweb, mais está dando o erro abaixo
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=SQLOLEDB; Integrated Security=SSPI; Persist Security Info=False; Database=" & BancoDados & "; user_id=" & usuario & "; pwd=" & senha & "; Server=" & servidor & "; Data Source=" & servidor & ""
cn.Open
Run-time error: '2147467559(80004005'
Atributo de sequencia de caracteres de conexão inválido
No VB fiz referência ao "Microsoft Activex Data Object 2.8 Library"
Onde é que estou errando, me ajudem, please!!!!
|
|
|
|
|
|
Postada em 26/12/2010 19:43 hs
Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False; user id=sa; pwd=;Initial Catalog=nomebanco" cn.CursorLocation = adUseClient
cn.open
|
|
|
|
