Cara, existem muitas maneira de fazer isso mas este é um exemplo de SELECT o princípio é o mesmo! Acho que pode te ajudar. Repare que a passagem de parâmetros para um query mudou. Não se concatena mais string para isso.
No app.config deve existir a linha:
<
connectionStrings><
add name="minhabase" connectionString="Data Source=.;Initial Catalog=Document;Integrated Security=True"providerName="System.Data.SqlClient" /></
connectionStrings>Para abrir utilize a linha abaixo:
Private
dbDoc As Database = DatabaseFactory.CreateDatabase("minhabase")Para executar use o código abaixo:
Dim dsDoc As DataSet = New DataSet
Dim dtUser As DataTable = New DataTable
Dim cmSelect As DbCommand
ID_A=3
Sql = _
"SELECT * " & _
"FROM TabelaA " & _
"WHERE(TabelaA.ID_A = @ID_a)"
cmSelect = dbDoc.GetSqlStringCommand(Sql)
cmSelect.CommandType = CommandType.Text
dbDoc.AddInParameter(cmSelect,
"@id_a", DbType.String, ID_a)dsDoc = dbDoc.ExecuteDataSet(cmSelect)
dtUser = dsDoc.Tables(0)
