用以下方法导入数据时悠列名称,但不改变数据类型?
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " _
& "FROM [在校学生] WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
dbs.Close
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " _
& "FROM [在校学生] WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
dbs.Close
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " _
& "FROM [在校学生] WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
dbs.Close
& "FROM [在校学生].[字段名1] as [别名1],[在校学生].[字段名2] as [别名2]...... WHERE " & DataGrid1.Columns(DataGrid1.Col).Caption & "='" & Trim(DataGrid1.Text) & "'"
dbs.Close