Criando função para inserir dados em um banco de dados
Pessoal estou quase conseguindo o que eu quero.
Aqui esta um função que estou criando como ferramente, para que em qualquer projeto eu possa usala.
Public Function SQLIncluir(SQLTabela As String, SQLColuna As String, VariavelConsulta As String, SQLColuna1 As String, SQLColuna2 As String, SQLColuna3 As String, SQLColuna4 As String, SQLColuna5 As String, SQLColuna6 As String, SQLColuna7 As String, SQLColuna8 As String, SQLColuna9 As String, SQLColuna10 As String, SQLColuna11 As String, SQLColuna12 As String, SQLColuna13 As String, SQLColuna14 As String, SQLColuna15 As String, SQLColuna16 As String, SQLColuna17 As String, SQLColuna18 As String, SQLColuna19 As String, SQLColuna20 As String, SQLColuna21 As String, SQLColuna22 As String, Item1 As String, Item2 As String, Item3 As String, Item4 As String, Item5 As String, Item6 As String, Item7 As String, Item8 As String, Item9 As String, Item10 As String, Item11 As String, Item12 As String, Item13 As String, Item14 As String, Item15 As String, Item16 As String, Item17 As String, Item18 As String, Item19 As String, Item20 As String, Item21 As String, Item22 As String)
If SQLSelect(SQLTabela, SQLColuna, VariavelConsulta) = True Then
MsgBox "Cliente ja cadastrado!", vbInformation, "Cadastro"
SQLIncluir = True
Else
SQLIncluir = False
Abre_Conexao
SQL = "Select * from " & SQLTabela & ""
Tabela.Open SQL, conexao, adOpenForwardOnly, adLockOptimistic
With Tabela
.AddNew
.Fields("" & SQLColuna1 & "") = Item1
.Fields("" & SQLColuna2 & "") = Item2
.Fields("" & SQLColuna3 & "") = Item3
.Fields("" & SQLColuna4 & "") = Item4
.Fields("" & SQLColuna5 & "") = Item5
.Fields("" & SQLColuna6 & "") = Item6
.Fields("" & SQLColuna7 & "") = Item7
.Fields("" & SQLColuna8 & "") = Item8
.Fields("" & SQLColuna9 & "") = Item9
.Fields("" & SQLColuna10 & "") = Item10
.Fields("" & SQLColuna11 & "") = Item11
.Fields("" & SQLColuna12 & "") = Item12
.Fields("" & SQLColuna13 & "") = Item13
.Fields("" & SQLColuna14 & "") = Item14
.Fields("" & SQLColuna15 & "") = Item15
.Fields("" & SQLColuna16 & "") = Item16
.Fields("" & SQLColuna17 & "") = Item17
.Fields("" & SQLColuna18 & "") = Item18
.Fields("" & SQLColuna19 & "") = Item19
.Fields("" & SQLColuna20 & "") = Item20
.Fields("" & SQLColuna21 & "") = Item21
.Fields("" & SQLColuna22 & "") = Item22
.Update
End With
Fecha_Conexao
End IfEnd Function
Essa função tem capacidade armazenar informações de 22 itens.
Porem queria poder usar essa mesma função em outros projetos, mas com quantidades de itens diferentes, por exemplo menos quantidade.
Aqui tem um exmplo:
Private Sub cmdSalvar_Click()
VereficaCamposCadastro
If ItensObrigatorios = False Then
MsgBox "Preencha os campos obrigatórios!", vbInformation, "Cadastro"
Else
If SQLIncluirCadastro("CadClientes", "CPF", txtCPF, "CPF", "Cliente", "Empresa", "ResInforma", "Endereco", "Bairro", "Cidade", "Estado", "Telefone", "Celular", "CEP", "RG", "LocTrabalho", "Veiculo", "Marca", "Ano", "Cor", "Placa", "ResEmpresa", "Data", "KM", "", txtCPF, txtCliente, txtEmpresa, txtResInfoma, txtEndereco, txtBairro, txtCidade, txtEstado, txtTelefone, txtCelular, txtCEP, txtRG, txtLocTrabalho, txtVeiculo, txtMarca, txtAno, txtCor, txtPlaca, txtResEmpresa, txtData, txtKM, "") = False Then
LimpaCamposCadastro
End If
End If
Data
End Sub
Pela contagem eu dexei a SQLColuna16 e o Item16 vazios (""), bom o que eu quero é que quando eu responder que essa coluna e esse item não tem informações o código
.Fields("" & SQLColuna16 & "") = Item16
não execute.
Assim posso usar essa função em qualquer projeto.
Discussão (12)
Carregando comentários...