Sign In| Join
Get Help:Ask a Question in our Forums|Report a Bug|More Help Resources
Member
5 Points
1 Post
May 04, 2006 02:52 PM|LINK
bclaro
Member
5 Points
1 Post
Help inserting sql from access table
May 04, 2006 02:52 PM|LINK
I want to run a do while eof of a access datatable and inserting records in a sql table .
Source :
Dim conn As SqlConnection = Nothing
Dim trans As SqlTransaction = Nothing
Dim cmd As SqlCommand
conn = New SqlConnection(ConfigurationManager.ConnectionStrings("CPCnet").ConnectionString)
conn.Open()
trans = conn.BeginTransaction
cmd = New SqlCommand()
cmd.Connection = conn
cmd.Transaction = trans
cmd.CommandText = "INSERT INTO LOja_produtos(cod_inex ) " & _
"VALUES (@cod_inex); SELECT SCOPE_IDENTITY()"
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cpcnet.mdb") & ";"
Dim rs
rs = Server.CreateObject("ADODB.Recordset")
rs.open("Select stk_code,STK_Name, STK_PRICE_A, STK_CATEGORY, STK_WEB_DESC, STK_GIF_FILENAME, STK_keywords,STK_Ficheiro_Caracteristicas,STK_Marca,STK_PRAZO_ENTREGA from FStock", strConn)
Dim visivel, portes, cod_inex, garantia, Nome, preco, categoria_id, descricao, imagem, ficheiro_caracteristicas, keywords, fabricantes, prazo_entrega
visivel = "T"
portes = "1"
garantia = "2"
rs.movefirst()
Do While Not rs.eof
cod_inex = rs("stk_code").value()
cmd.Parameters.AddWithValue("@cod_inex", cod_inex)
cmd.ExecuteNonQuery()
rs.movenext()
Loop