sql >> Database teknologi >  >> RDS >> Mysql

Udfør SQL skrevet i en tekstboks med VBA

Thisworkbook.Sheet1 er ikke en gyldig objektsti, prøv i stedet:

SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text

Eller bare

SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text

Og sørg for, at arket bestemt hedder "Sheet1"

Du skal også ændre

rs.Open strSQL, conn, adOpenStatic

til dette:

rs.Open SqlString, conn, adOpenStatic

Og du skal nok bruge

Dim SqlString as String

i starten af ​​rutinen



  1. MySQL Contiguous Sequential Rows Field selv ved sletning og indsættelse

  2. PostgreSQL - får første række til at blive vist som alt af andre rækker

  3. Hvordan kan jeg lave fatale fejl i ALLE mysql-advarsler?

  4. Hvordan får man dagens / gårsdagens data fra MySQL-databasen?