19. februar 2004 - 09:59
#10
Koden som vs genere for mig ser sådan ud:
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.OdbcConnection1 = New System.Data.Odbc.OdbcConnection
Me.DataSet21 = New myFirstProject.DataSet2
Me.OdbcDataAdapter1 = New System.Data.Odbc.OdbcDataAdapter
Me.OdbcSelectCommand1 = New System.Data.Odbc.OdbcCommand
Me.OdbcInsertCommand1 = New System.Data.Odbc.OdbcCommand
CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).BeginInit()
'
'OdbcConnection1
'
Me.OdbcConnection1.ConnectionString = "STMT=;OPTION=3;DSN=jsCompany;UID=js;PASSWORD=kodeord;DESC=MySQL ODBC 3.51 Driver " & _
"DSN;DATABASE=js;SERVER=sql1.ikasths.dk;PORT=3306"
'
'DataSet21
'
Me.DataSet21.DataSetName = "DataSet2"
Me.DataSet21.Locale = New System.Globalization.CultureInfo("da-DK")
'
'OdbcDataAdapter1
'
Me.OdbcDataAdapter1.InsertCommand = Me.OdbcInsertCommand1
Me.OdbcDataAdapter1.SelectCommand = Me.OdbcSelectCommand1
Me.OdbcDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "EMPLOYEE", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("FNAME", "FNAME"), New System.Data.Common.DataColumnMapping("MINIT", "MINIT"), New System.Data.Common.DataColumnMapping("LNAME", "LNAME"), New System.Data.Common.DataColumnMapping("SSN", "SSN"), New System.Data.Common.DataColumnMapping("BDATE", "BDATE"), New System.Data.Common.DataColumnMapping("ADDRESS", "ADDRESS"), New System.Data.Common.DataColumnMapping("SEX", "SEX"), New System.Data.Common.DataColumnMapping("SALARY", "SALARY"), New System.Data.Common.DataColumnMapping("SUPERSSN", "SUPERSSN"), New System.Data.Common.DataColumnMapping("DNO", "DNO")})})
'
'OdbcSelectCommand1
'
Me.OdbcSelectCommand1.CommandText = "SELECT FNAME, MINIT, LNAME, SSN, BDATE, ADDRESS, SEX, SALARY, SUPERSSN, DNO FROM " & _
"EMPLOYEE"
Me.OdbcSelectCommand1.Connection = Me.OdbcConnection1
'
'OdbcInsertCommand1
'
Me.OdbcInsertCommand1.CommandText = "INSERT INTO EMPLOYEE(FNAME, MINIT, LNAME, SSN, BDATE, ADDRESS, SEX, SALARY, SUPER" & _
"SSN, DNO) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.OdbcInsertCommand1.Connection = Me.OdbcConnection1
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("FNAME", System.Data.Odbc.OdbcType.VarChar, 15, "FNAME"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("MINIT", System.Data.Odbc.OdbcType.VarChar, 255, "MINIT"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("LNAME", System.Data.Odbc.OdbcType.VarChar, 15, "LNAME"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("SSN", System.Data.Odbc.OdbcType.VarChar, 9, "SSN"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("BDATE", System.Data.Odbc.OdbcType.VarChar, 50, "BDATE"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("ADDRESS", System.Data.Odbc.OdbcType.VarChar, 30, "ADDRESS"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("SEX", System.Data.Odbc.OdbcType.VarChar, 255, "SEX"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("SALARY", System.Data.Odbc.OdbcType.Double, 0, "SALARY"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("SUPERSSN", System.Data.Odbc.OdbcType.VarChar, 9, "SUPERSSN"))
Me.OdbcInsertCommand1.Parameters.Add(New System.Data.Odbc.OdbcParameter("DNO", System.Data.Odbc.OdbcType.BigInt, 0, "DNO"))
CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()
Her mangler jo så bare en Command for Update og Delete.