Vb.net e Sql Server

venerdì 04 ottobre 2013 - 14.17

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: ven 4 ott 2013 - 14:17

1921_Da Acces a Sql.zip

Salve a tutto il forum, avrei il seguente problema.

Ho fatto un semplicissimo db Access con 1 tabella e 3 campi, tramite l' opzione di Access ho convertito il db in SQL.

Per aggiungere i record sul db Accesso da Vb.Net ho sempre usato le query:

Public ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Messina Utility\MessinaUtility.mdb;Persist Security Info=false;"
Public Cn As New OleDb.OleDbConnection(ConnString)
Public dr As OleDb.OleDbDataReader
Public cmd As OleDb.OleDbCommand
Public sql As String

Cn.Open()
sql = "INSERT INTO [Coordinatebancarie] (Codice) VALUES(" & Chr(34) & TextBox2.Text & Chr(34) & ")"
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()

Cn.Open()
sql = "UPDATE CoordinateBancarie SET Destinatario=" & Chr(34) & TextBox3.Text.Replace(Chr(34), "''") & Chr(34) & ", NFax=" & Chr(34) & NFaxTextBox.Text & Chr(34) & " where Codice=" & CodiceTextBox.Text
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()

Cn.Open()
sql = "Delete * From CoordinateBancarie where Codice=" & CodiceTextBox.Text
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()

Ma in Sql server queste query come vanno scritte?

Qualcuno può mettermi un paio di righe di codice per mostrarmi come si fa?

Distinti Saluti

Fabio Messina

Cercando su internet ho fatto l' INSERT in questo modo:

Imports System.Data
Imports System.Data.SqlClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim stringaconn As String
Dim conn As SqlConnection
Dim mycommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
stringaconn = "Server'stringaconn=New.
conn = New SqlConnection(stringaconn)
conn.Open()
conn.Close()
If (conn.State = 0) Then
MsgBox("il database sconnesso")

Else
MsgBox("il database connesso")
End If
End Sub

e qua mi dice sconnesso

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SQLConnectionString As String
Dim SQLConnection As New SqlConnection
Dim dataset1 As New DataSet
SQLConnectionString = "Server=.\SQLExpress;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL.1\MSSQL\Data\provaSQL2.mdf;Database=provaSQL2;Trusted_Connection=Yes;"
SQLConnection.ConnectionString = SQLConnectionString
SQLConnection.Open()
Dim cm As New SqlCommand
cm.CommandText = "INSERT INTO [tabella1] (testo) VALUES(" & Chr(34) & TextBox1.Text & Chr(34) & ")"
Dim da As New SqlDataAdapter
da.SelectCommand = cm
da.SelectCommand.Connection = SQLConnection

SQLConnection.Close()

End Sub

Ma non mi da errori ma non mi scrive nulla sul db...........

hatzisn Profilo | Newbie

2 messaggi | Data Invio: lun 7 ott 2013 - 19:38

Usi questa riga di codice...

cm.CommandText = "INSERT INTO [tabella1] (testo) VALUES(' " & TextBox1.Text & " ')"

Devi usare le ' e non usare le " quando inserisci testo sul SQL Server.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !