怎么从数据库中提取数据并赋值给变量

可以建立一个类class

然后再定义一个类对象obj

在main函数中，通过对象来调用相应的变量

给变量赋值

比如：

class

a{};

main()

objx=3;

x是变量

select PRODUCTPRONAME,ORDERSORDERDATA,sum(ORDERDETAILPRICEORDERDETAILACCOUNT) as 第1季度销售额,0 AS 第2季度销售量,0 as 第3季度销售量,0 AS 第4季度销售量 from PRODUCT,ORDERS,ORDERDETAIL where ORDERSORDERID=ORDERDETAILORDERID and PRODUCTPROID=ORDERDETAILPROID and ORDERDATA between '01-3月-97' and '31-5月-97' GROUP BY PRODUCTPRONAME,ORDERSORDERDATA,ORDERSORDERID

declare @wwe varchar(100)

select @wwe='身高：'+cast(身高 as varchar) from 学生信息

select @wwe

身高要是数值型的话，完全用我这个，要是字符型，中间那句还用你原来的

前边定义变量时，你@wwe定义的是整型，当然不能存“身高：160” 这样的数据

string MyConn = "Data Source=;Initial Catalog=sqlstudent;Integrated Security=True";

SqlConnection MyConnection = new SqlConnection(MyConn);

String str="select from Sc_Student";

SqlDataAdapter sqlada=new SqlDataAdapter(str,MyConn);

DataSet myset=new DataSet();

sqladaFill(myset);

然后你的Sc_Student表里面的内容都会在myset这个数据集中，用String ss=mysetTable[0]Rows[x][y]ToString();取出你想要的值，X,Y为数据表的Row 和cell

首先需要一个连接字符串连接到数据库，然后调用 SqlDataAdapter方法获得数据库的数据，但这样并不会真正获得数据，还要将连接字符串打开，再通过一个SqlCommandBuilder对象将数据填充到一个表中，然后就可以通过这个表获得数据了，下面以获得姓名字段的全部值为例，示例代码如下： string[] name = new string[10];//有多少记录，数组就定义多大，或者使用集合，就不用考虑越界问题了！ DataTable student; SqlConnection link=new SqlConnection("Server=玛哈维路-PC;database=软件0902;Persist Security Info=False;Integrated Security=true"); SqlDataAdapter sql=new SqlDataAdapter("select from 同学信息表", link); SqlCommandBuilder builder=new SqlCommandBuilder(sql); sqlFill(student); for (int i = 0; i < studentRowsCount; i++) { name[i](studentRows[i]["姓名"]); } //表的外观是二维数组，其实访问时是用数组的数组，前为行，后为行，由于列名确定，行号在变，所以得到肯定是一行！当然也还有其它的写法，这只是一个参考，希望对你有帮助！

注释的！

Private Sub CommandButton5_Click()

Dim Conn As New ADODBConnection '定义ADODB连接对象

Dim ConnStr As String '定义连接字符串

Dim xiao As String

xiao = ComDataText

'对于SQL 2008，如果以IP方式访问服务器，必须要启动SQL Server Browser服务，如果是Express版本，要以“IP(计算机名)\实例名”方式访问

ConnStr = txtDataText

Dim Records As New ADODBRecordset '定义ADODB对象的记录集

Dim Sheet As Worksheet '定义工作表

Set Sheet = ThisWorkbookWorksheets("Sheet2") '给变量Sheet赋值，注意：是工作簿中索引为1的那个表（通常一个新的工作簿Sheet1的索引为1）

'SheetName = "Data" '把Sheet名称改为Data

SheetCellsClear '清空表中原有的数据

'连接状态是打开就不在进行Open *** 作

ConnOpen ConnStr

Dim SQLStr As String '要执行的SQL语句

SQLStr = "select from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句

RecordsOpen SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '读取SQL查询结果到Records记录集

'RecordsOpen

Dim i, j, TotalRows, TotalColumns As Integer

j = 0

TotalRows = RecordsRecordCount

TotalColumns = RecordsFieldsCount

'下面的循环把表头（即列名）写到Excel表的第一行

For i = 0 To TotalColumns - 1

Sheet2Cells(1, i + 1) = RecordsFields(i)Name

Next

'下面的循环把查询结果写到Excel表中

Do While Not RecordsEOF

For i = 0 To TotalColumns - 1

Sheet2Cells(j + 2, i + 1) = RecordsFields(i)Value

Next

RecordsMoveNext

j = j + 1

Loop

RecordsClose '关闭记录集

ConnClose '关闭连接

Set Records = Nothing '清空对象

Set Conn = Nothing '清空对象

End Sub

有什么不懂的话Hi我！

以上就是关于怎么从数据库中提取数据并赋值给变量全部的内容，包括:怎么从数据库中提取数据并赋值给变量、数据库字段赋值、关于数据库 给变量赋值的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！