WinCC WinCC Runtime Advanced V15 mit ODBC auf MySQL-Datenbank zugreifen

[neo2003i]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

ich bin mittlerweile am verzweifeln. Ich versuche über ein VB-Skript eine Verbindung zu einer MySQL-Datenbank aufzubauen. Selbst vom Siemens-Support habe ich bisher noch keine Lösung zu meinem Problem bekommen.

Jetzt aber zu meinem Problem:

ich habe mir ein VB-Skript erstellt, indem ich folgendermaßen eine Verbindung zur MySQL-Datenbank aufbauen will...

"db_server = "localhost"
db_port = "3306"
db_user = "root"
db_pass = "root"
db_name = "Rezeptverwaltung"

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")

strConnectString = "{DRIVER=MySQL ODBC 8.0 Unicode Driver};SERVER=" & db_server & ";DATABASE=" & db_name &";UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"

conn.open strConnectString

Set rs = CreateObject("ADODB.recordset")

if Err.Number <> 0 then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End if

Sql = "Select * From Programme"

Set res = conn.Execute(Sql)"

Wenn ich nun das Skript in der Runtime aufrufe bekomme ich die Fehlermeldung:

"Error #-2147467259 [Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben"


Im Anhang habe ich noch ein paar Bilder von der Einstellung die ich in den Datenquellen von Windows gemacht habe. Achja...den ODBC-Treiber von MySQL hab ich in der 32-Bit und in der 64-Bit-Version installiert gehabt.

Hoffe von euch kann mir jemand weiterhelfen.

mfg
Alex

 

[volker]

schau mal hier im ersten post ganz unten
Protool/WinCCflex/TIA Daten lesen / schreiben mit VB-Script

bei dir ist die geschwungene klammer vor dem driver
strConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & db_server & ";" _
& " DATABASE=" & db_name & ";" _
& "UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"

 

[neo2003i]

Zuviel Werbung?
-> Hier kostenlos registrieren

Schande über mich...es sollte natürlich heißen DRIVER={MySQL...
Ich hab mich beim abtippen nur vertippt.

An der geschwungenen Klammer liegt der Fehler nicht. In meinem Skript ist sie an der richtigen Stelle.
Trotzdem danke für deine schnelle Antwort.

Fällt sonst keinem was auf?

 

[JoopB]

Ich habe hier ein Function aus ein WinCC 7.0 script who ein groepsnr aus der SQL gelezen wurde. (Diese SQL is auf der lokale PC) bij einloggen in der SQL brauchen wir der Windows login.
Fur die connectionstring haben wir in WinCC ein interne textvariable it 16-Bit Zeichensatz wenn Die Servernaam oder die dbase naam ander musten wir nur die startwert anderen und nicht in jede script die connectionstring anpassen.

Hier die code:

Interne Var: Connectionstring    Textvariable 16-Bit Zeichensatz
Startwert = Driver={SQL SERVER};Server=IMML3XPS\WINCC;DATABASE=MENGERHAL1;Trusted_Connection=Yes






Function Select_ID_Groepsnummer(arg_Naam)
	Dim objConnection
	Dim objCommand
	Dim objRecordset
	Dim strConnectionString
	Dim strSQL


 	HMIRuntime.tags("Test").Write arg_Naam
	strConnectionString = HMIRuntime.Tags("ConnectionString").read
	strSQL = "select ID_Groepnummer from Tbl_Groepnaam where Groepnaam like '" & arg_Naam & "'"
	Set objConnection = CreateObject("ADODB.Connection")
	objConnection.ConnectionString = strConnectionString
	objConnection.Open
	Set objRecordset = CreateObject("ADODB.Recordset")
	Set objCommand = CreateObject("ADODB.Command")
	objCommand.ActiveConnection = objConnection
	objCommand.CommandText = strSQL
	Set objRecordset = objCommand.Execute


	If Not objRecordset.EOF Then
		Select_ID_Groepsnummer=objRecordset.movefirst
		objRecordset.Fields(0).Value
	Else
		Select_ID_Groepsnummer=0
	End If


	Set objCommand = Nothing
	objConnection.Close
	Set objRecordset = Nothing
	Set objConnection = Nothing
End Function

 

[Thomas_v2.1]

Im Anhang habe ich noch ein paar Bilder von der Einstellung die ich in den Datenquellen von Windows gemacht habe. Achja...den ODBC-Treiber von MySQL hab ich in der 32-Bit und in der 64-Bit-Version installiert gehabt.

Ich hatte kürzlich ein ähnliches Problem mit der ODBC Anbindung an eine Oracle Datenbank unter einem 64 Bit Betriebssystem. Dort musste ich die ODBC-Verbindung über die 32-Bit Version des "ODBC-Datenquellen-Administrator" Programms einrichten.
Die 32-Bit Version findest du im Windows-Verzeichnis C:\Windows\SysWOW64\ und dort die Datei odbcad32.exe.